Companheiros, estou tentando colorir um flexgrid + não está funcionando. 
O prbl é que só está trocando a cor da 1º celula e eu gostaria que fosse na linha inteira.
como mandei na rotina abaixo espero que todas as contas terminadas em .00.000 a linha seja preenchida com a fonte branca e fundo azul e as que terminem em .000 sejam de branca com fundo vermelho.

Wilson  

Function PreencheGrid(ByVal sql As String) As String
    Dim LinhaAtual As Single
    Dim conta As New ADODB.Recordset
    Set conta = CreateObject("ADODB.RECORDSET")
    Screen.MousePointer = 11
    Set conta = conn.Execute(sql)
    LinhaAtual = 0
    With Grid
        While conta.EOF = False
            LinhaAtual = LinhaAtual + 1
            .Rows = LinhaAtual + 1
            If Right(conta("conta"), 7) = ".00.000" Then
               .CellForeColor = vbWhite
               .CellBackColor = vbBlue
            ElseIf Right$(conta("conta"), 4) = ".000" Then
               .CellForeColor = vbWhite
               .CellBackColor = vbRed
            End If
            .TextMatrix(LinhaAtual, 1) = IIf(IsNull(conta("conta")), "", conta("conta"))
            .TextMatrix(LinhaAtual, 2) = IIf(IsNull(conta("descricao")), "", Format$(conta("descricao"), ">"))
            .TextMatrix(LinhaAtual, 3) = IIf(IsNull(conta("saldo_0")), "", Format$(conta("saldo_0"), "##,###,##0.00"))
            .TextMatrix(LinhaAtual, 4) = IIf(IsNull(conta("saldo_1")), "", Format$(conta("saldo_1"), "##,###,##0.00"))
            .TextMatrix(LinhaAtual, 5) = IIf(IsNull(conta("saldo_2")), "", Format$(conta("saldo_2"), "##,###,##0.00"))
            .TextMatrix(LinhaAtual, 6) = IIf(IsNull(conta("tipo")), "", Format$(conta("tipo"), ">"))
            conta.MoveNext
        Wend
    End With
    conta.Close
    Set conta = Nothing
    Screen.MousePointer = 0
End Function

Wilson, de uma olhada nessa dica: http://www.vbweb.com.br/dicas_visual.asp?Codigo=63&Classificacao=  dai basta adaptá-la ao seu sistema.

 

Espero ter ajudado,

 

T+,

Mude isso no código:

Dim BkgCorAtual as long,FrgCorAtual as long

...

           LinhaAtual = LinhaAtual + 1
            .Rows = LinhaAtual + 1
            If Right(conta("conta"), 7) = ".00.000" Then

               BkgCorAtual = vbBlue:FrgCorAtual = VbWhite

               '.CellForeColor = vbWhite
               '.CellBackColor = vbBlue
            ElseIf Right$(conta("conta"), 4) = ".000" Then

               '.CellForeColor = vbWhite
               '.CellBackColor = vbRed
            End If
            .Row=LinhaAtual:.Col = 1

            .CellBackColor = BkgCorAtual:.CellForeColor = FrgCorAtual

            .TextMatrix(LinhaAtual, 1) = IIf(IsNull(conta("conta")), "", conta("conta"))
            .Row=LinhaAtual:.Col = 2

            .TextMatrix(LinhaAtual, 2) = IIf(IsNull(conta("descricao")), "", Format$(conta("descricao"), ">"))

            .Row=LinhaAtual:.Col = 3