Visual Basic - Nombre de Columna DataGrid

Life is soft - evento anual de software empresarial
   
Vista:

Nombre de Columna DataGrid

Publicado por Dany Solis josedaniel.v.solis@hotmail.com (2 intervenciones) el 12/01/2015 22:31:31
Que tal a todos.

Tengo este problema para mostrar el nombre de una columna en un DataGrid.

Para cambiar agregar el nombre de una consulta en un DataGrdi hago lo siguiente:


Me.DGV.Columns("ruta").HeaderText = "Nombre que quieras"
Pero en una columna del DataGrid quiero mostrar el resultado de una consulta Sql, he aqui el problema ya que si me muestra el resultado de la consulta, pero en la columna del DataGrid me muestra el nombre de la Consulta.

Este es el codigo que tengo agradezco puedan ayudarme por favor.:

Private Sub Formula(ByVal Sql As String, ByVal Dv As DataGridView)
Dim conexion As New MySqlConnection
conexion.ConnectionString = cadena
conexion.Open()
Dim comando As MySqlCommand = New MySqlCommand(Sql, conexion)
Dim Tabla As DataTable = New DataTable
Try
Dim da As MySqlDataAdapter = New MySqlDataAdapter(comando)
da.Fill(Tabla)
DGVWork.DataSource = Tabla
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Formula("SELECT ruta,turno,Format((((p_surtimiento*frec_turno*t_ciclo_comp)+((caminares*vueltas)+t_nociclico))/t_disponible)*100,2)From Carga Order By Ruta Asc", DGVWork) 'FROM carga Order By Ruta,Turno Asc", DGVAsigTra)

Me.DGVWork.Columns("ruta").HeaderText = "NoRuta"
Me.DGVAsigTra.Columns("ruta").SortMode = DataGridViewColumnSortMode.NotSortable
Me.DGVWork.Columns("turno").HeaderText = "Turno"
Me.DGVAsigTra.Columns("turno").SortMode = DataGridViewColumnSortMode.NotSortable
'Me.DGVWork.Columns("Format").HeaderText = "Resultado" 'Aqui esta el error no me respeta el nombre que le estoy dando
'Me.DGVAsigTra.Columns("Format").SortMode = DataGridViewColumnSortMode.NotSortable
DGVWork.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DGVWork.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill
With DGVWork
.AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke
.DefaultCellStyle.BackColor = Color.LightSteelBlue
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
End With

End Sub

Anexo imagen.

Espero su ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Nombre de Columna DataGrid

Publicado por Diego (33 intervenciones) el 13/01/2015 18:48:28
Por lo que veo formula es una especie de funcion que tienes que llena el grid, 1er parametro el sql y el 2 es el grid a cargar.

Hazlo mediante un DataSet. Adjunto un pequeño ejemplo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Sql As String = ""
Dim DS As New DataSet
Dim DA As New SqlDataAdapter
Sql = "Select CodigoCliente,Nombre from Clientes"
DS.Reset()
DA = New SqlDataAdapter(Sql, Conexion)
DA.Fill(DS, "Clientes")
 
'si la consulta retorna registros
If DS.Tables("Clientes").Rows.Count > 0 Then
    Dim Registro1 As DataRow = DS.Tables("Clientes").Rows(0)
 
    'CARGA EL DATA GRID CON TODOS LOS RESULTADOS DE LA CONSULTA
    Me.DGVWork.DataSource = Nothing
    Me.DGVWork.DataSource = DS.Tables("Clientes")
 
    With Me.DGVWork
        'CODIGO DEL 1ER CLIENTE DE LA CONSULTA
        .Columns(0).HeaderText = Registro1.Item("CodigoCliente").ToString()
    End With
 
End If
DA.Dispose()
DS.Dispose()
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Nombre de Columna DataGrid

Publicado por Dany (2 intervenciones) el 31/05/2015 00:47:37
Gracias por tu ayuda me sirvio de mucho.



Saludos

DS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar