07/11/2003, 05:54
|
| | | Fecha de Ingreso: julio-2003 Ubicación: Sevilla
Mensajes: 9
Antigüedad: 21 años, 7 meses Puntos: 0 | |
| Hola de nuevo,
Ya he solucionado mi problema, he buscado en otros foros y he encontrado esto :
lsConsulta="SELECT * FROM ORDER BY [ASC/DESC]"
Dim loAdaptador As New SqlDataAdapter(lsConsulta, )
Dim Datos As New DataSet()
loAdaptador.Fill(Datos, "Tabla")
DataGrid.DataSource = Datos.Tables("Tabla")
Dim loEstilo As New DataGridTableStyle()
loEstilo.MappingName = "Tabla"
Dim loColumna As New DataGridTextBoxColumn()
With loColumna
.Width = 10
.MappingName =
.HeaderText = "campo 1"
End With
loEstilo.GridColumnStyles.Add(loColumna)
loColumna = New DataGridTextBoxColumn()
With loColumna
.Width = 100
.MappingName =
.HeaderText = "Campo 2"
End With
loEstilo.GridColumnStyles.Add(loColumna)
DbGrid.TableStyles.Add(EstiloTabla)
Con este ejemplo a mi me ha ido muy bien. Asi que aqui está para que le pueda servir a otro.
Saludos, |