Hola a todos
como modifico los nombres de una columna de un DATAGRID
en aplicacion Windows Form, no encuentro una propiedad
como AutoGenerateColumn.
Supongo que por eso cuando realizo las modificaciones no
hace efecto
les envio el codigo para que lo revicen:
Dim q As String
q = "select id_equipoine, marca from equipo"
oda = New OleDbDataAdapter(q, cnn)
'crear un command builder
Dim oCB As OleDbCommandBuilder = New
OleDbCommandBuilder(oda)
'crear DataSet
dsEquipo = New DataSet()
oda.Fill(dsEquipo, "Pueba Equipo")
'asignar el DataSet al data grid
Me.DataGridPartes.DataSource = dsEquipo
'Me.datagridpartes.DataMember = " Prueba Equipo "
'para que datagrid pueda ser modificable desde
codigo
'configurar grid por codigo
Me.DataGridPartes.Anchor = AnchorStyles.Bottom +
AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top
Me.DataGridPartes.CaptionText = "prueba listado de equipos"
Me.DataGridPartes.CaptionBackColor = Color.Turquoise
Me.DataGridPartes.CaptionForeColor = Color.Yellow
'crear un objeto para estilos del data grid
Dim oestilogrid As New DataGridTableStyle()
oestilogrid.MappingName = "Prueba Equipo"
oestilogrid.BackColor = Color.LightGoldenrodYellow
oestilogrid.AlternatingBackColor = Color.Aquamarine
'crear objeto columna-grid para cada columna de la
tabla a mostrar en el datagrid
Dim ocolgrid As DataGridTextBoxColumn
'configurar cada objeto de columna-grid
ocolgrid = New DataGridTextBoxColumn()
ocolgrid.TextBox.Enabled = False
ocolgrid.Alignment = HorizontalAlignment.Center
'nombre de la columna del data set que se mapea hacia esta
columna del grid
ocolgrid.MappingName = "ID_EQUIPOINE"
ocolgrid.HeaderText = "codigo prueba"
ocolgrid.Width = 150
'Añadir la columna al objeto que contiene los estilos del
datagrid
oestilogrid.GridColumnStyles.Add(ocolgrid)
ocolgrid = Nothing
ocolgrid = New DataGridTextBoxColumn()
ocolgrid.TextBox.Enabled = False
ocolgrid.Alignment = HorizontalAlignment.Left
ocolgrid.HeaderText = "MARCA del EQUIPO"
ocolgrid.MappingName = "MARCA"
ocolgrid.Width = 110
oestilogrid.GridColumnStyles.Add(ocolgrid)
ocolgrid = Nothing
'Una vez creadas todas las columans de estilos para el GRID
Me.DataGridPartes.TableStyles.Add(oestilogrid)
Leer las respuestas