Controlar un Datagrid por codigo? - VB-MUNDO

phb · #1 (**permalink**) 02-06-2006, 19:42:10

Estimados:

Alguien tendría la amabilidad de decirme como por medio de código a un Datagrid le agrando o achico una columna
o ordeno las mismas para que me aparezcan en una determinada posición, ya que tengo un Datagrid
enlazado a una base de datos y me cambia el orden de las columnas y no se porque.

Desde ya muchas gracias y saludos para todos

pemorip · #2 (**permalink**) 05-06-2006, 17:16:20

Mira este hilo, espero que te sirva.

http://foro.vb-mundo.com/viewtopic.php?t=2547585

Un saludo a tod@s

phb · #3 (**permalink**) 06-06-2006, 15:02:31

pemorip:

Gracias por la ayuda pero me podes decir como hago para asociar eso con el datagrid, porque es esa parte la
cual nome sale y no se como seguir. Desde ya muchas gracias y Saludos....

pemorip · #4 (**permalink**) 07-06-2006, 06:06:32

Pones desde la caja de herramientas un DataGrid en el Formulario.
La propiedad name = Grid.

Debes tener un DataSet cargado con los datos de una o varias tablas.
DataSet = Ds.
Tabla de donde provienen los datos = Tabla.
·················································· ···············
Grid.DataSource=Ds
Grid.DataMember="Tabla"
'Hemos asignado los datos del DataSet al DataGrid.

'Cabecera Grid
Grid.CaptionText = "Diligencias"
Grid.CaptionBackColor = Color.CadetBlue
Grid.CaptionForeColor = Color.MidnightBlue
'Crear un objeto para el estilo del Grid
Dim oestiloGrid As New DataGridTableStyle
With oestiloGrid
.MappingName = "DILIGENCIAS"
.BackColor = Color.FromArgb(192, 252, 192)
.AlternatingBackColor = Color.FromArgb(255, 255, 192)
.ForeColor = Color.Red
.GridLineColor = Color.White
.HeaderBackColor = Color.LightSeaGreen
.HeaderForeColor = Color.White
End With
'Crear las columnas que queremos mostrar.
Dim oColGrid As DataGridTextBoxColumn

'Configuramos 1ª Columna
oColGrid = New DataGridTextBoxColumn
oColGrid.TextBox.Enabled = False
oColGrid.Alignment = HorizontalAlignment.Center
oColGrid.HeaderText = "Dilig"
'Nombre de la columna del Dataset que se mapea
oColGrid.MappingName = "Nº DILIGEN"
oColGrid.Width = 40
'añadimos los estilos
oestiloGrid.GridColumnStyles.Add(oColGrid)
oColGrid = Nothing

'Configuramos 2ª Columna
oColGrid = New DataGridTextBoxColumn
······································
······································
······································
'añadimos los estilos
oestiloGrid.GridColumnStyles.Add(oColGrid)
oColGrid = Nothing

Me.Grid.TableStyles.Add(oestiloGrid)

Un saludo a tod@s

phb · #5 (**permalink**) 07-06-2006, 19:03:39

Te agradezco la ayuda me vino muy bien.....

Saludos.