PINTAR LINHA FLEXGRID

LEANDRO 11/11/2010 10:27:47
#357189
Bom Dia a Todos.
Estou precisando pintar um linha por inteiro no FlexGrid, dependendo do conteudo da Grid.
Porem estou conseguindo pintar somente uma celula.

Segue o Codigo.

        With FlexGrid
            If Trim(FlexGrid.TextMatrix(wx, 7)) = [Ô]RESERVADO[Ô] Then
                .CellBackColor = &HFFFF&
            ElseIf Trim(FlexGrid.TextMatrix(wx, 7)) = [Ô]ALOCADO[Ô] Then
                Me.FlexGrid.CellBackColor = &HFF00&
            Else
                Me.FlexGrid.CellBackColor = &HFF&
            End If
        End With
ASHKATCHUP 11/11/2010 10:35:13
#357190
Varra todas colunas desta linha, pintando as células.
LEANDRO 11/11/2010 10:37:00
#357191
e Como faria isso ?
ACG1574 11/11/2010 10:41:09
#357192 Resposta escolhida
With grid
For iL = 1 To .Rows - 1
For iC = 0 To .Cols - 1
.Col = iC
.Row = iL
If .TextMatrix(iL, 1) <> [Ô][Ô] Then
If .Row Mod 2 = 0 Then .CellBackColor = vbRed
End If
Next iC
Next iL
End With
LEANDRO 11/11/2010 11:02:56
#357197
Obrigado
ACG1574
Tópico encerrado , respostas não são mais permitidas
Voltar