Yo tengo otra duda con FlexGrid
Publicado por ppg (42 intervenciones) el 28/07/2008 10:51:14
Pues bien, no consigo que aparezcan las barras de desplazamiento. El único codigo que modifico en el Grid es
Set General.FDG1.DataSource = rsTabla
General.Show
For i = 1 To 7
General.FDG1.ColWidth(i) = 400
Next i
With General.FDG1
' Recorre las filas
For Columna = 1 To 7
For fila = 1 To rsTabla.RecordCount
'Indica la fila y la columna
.Row = fila
.Col = Columna
If Val(.TextMatrix(fila, Columna)) = 0 Then .CellBackColor = &HFF& ' ROJO
Next fila
Next Columna
End With
Las propiedades del control tengo las que vienen por defecto y por supuesto que las de scroll están activas (ambas)
Help me please
Set General.FDG1.DataSource = rsTabla
General.Show
For i = 1 To 7
General.FDG1.ColWidth(i) = 400
Next i
With General.FDG1
' Recorre las filas
For Columna = 1 To 7
For fila = 1 To rsTabla.RecordCount
'Indica la fila y la columna
.Row = fila
.Col = Columna
If Val(.TextMatrix(fila, Columna)) = 0 Then .CellBackColor = &HFF& ' ROJO
Next fila
Next Columna
End With
Las propiedades del control tengo las que vienen por defecto y por supuesto que las de scroll están activas (ambas)
Help me please
Valora esta pregunta


0