Nombre de Columna DataGrid
Publicado por Dany Solis (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.
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
0
