cula es la forma correcta

09/09/2004 - 20:27 por jvirgo | Informe spam
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

#1 Eduardo A. Morcillo [MS MVP VB]
09/09/2004 - 21:29 | Informe spam
Puedes usar la sobrecarga que toma un CurrencyManager para crear el
tablestyle:

oestilogrid = New
DataGridTableStyle(DirectCast(BindingContext.Item(dsEquipo, "Prueba
Equipo"), CurrencyManager))

Usando ese constructor el tabla style generara las columnas segun esten en
la fuente de datos.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Preguntas similares