Cambiar color lineas MsFlexGrid
Publicado por Darío (42 intervenciones) el 20/02/2017 18:39:29
Hola tengo un MsFlexGrid con un par de lineas con datos y quisiera saber como cambiar de color el fondo de las lineas, tengo este código y no hace nada de nada.
En el visual corro paso a paso y cuando compara la fecha del Grid con la fecha del sistema, toma en cada caso lo que corresponde y ejecuta el ".CellForeColor =" pero en la grilla no cambia nada.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub PonerColorCeldas()
Dim i As Integer
For i = 1 To Grid.Rows - 1
With Grid
.Row = i
Select Case .TextMatrix(i, COL_FECHA)
Case Is = Date
.CellForeColor = vbYellow
Case Is > Date
.CellForeColor = vbGreen
Case Is < Date
.CellForeColor = vbRed
End Select
End With
Next i
End Sub
En el visual corro paso a paso y cuando compara la fecha del Grid con la fecha del sistema, toma en cada caso lo que corresponde y ejecuta el ".CellForeColor =" pero en la grilla no cambia nada.
Valora esta pregunta
0