datagrid
Publicado por jorge diaz (27 intervenciones) el 28/01/2004 10:06:48
Tengo este codigo para modificar el datagrid y establecer las columnas al ancho que quiera, pero al arrancar el programa no me muestra nada, es decir, muestra el datagrid y todas las columnas a ancho 0
me podeis ayudar???. Gracias
Private Sub inicializardatos()
Dim tablestyle1 As New DataGridTableStyle(False)
Dim cCodSaco As New DataGridTextBoxColumn()
Dim cCantidad As New DataGridTextBoxColumn()
Dim dFecha As New DataGridTextBoxColumn()
OleConexion.Open()
adaptadortabla.Fill(dsformulario, "maduracion")
daadaptador.FillSchema(dsformulario, SchemaType.Source, "lotes")
daadaptador.Fill(dsformulario, "lotes")
OleConexion.Close()
vista = New DataView(dttabla)
If dsformulario.Tables("maduracion").Rows.Count = 0 Then
MessageBox.Show("No hay ningun cuajo madurado", "Informacion Lotes")
Else
tablestyle1.MappingName = "maduracion"
cCodSaco.HeaderText = "CodSaco"
cCodSaco.MappingName = "CodSaco"
cCodSaco.Width = 100
cCantidad.HeaderText = "Cantidad"
cCantidad.MappingName = "Cantidad"
cCantidad.Width = 100
dFecha.HeaderText = "Fecha Maduracion"
dFecha.MappingName = "FechaMaduracion"
dFecha.Width = 130
DataGridmaduracion().TableStyles.Add(tablestyle1)
DataGridmaduracion.DataSource = vista
End If
End Sub
Valora esta pregunta


0