E ai galerinha !!!!

Preciso mudar a cor da linha de uma DBGrid de acordo com os dados contidos na linha.

Tipo assim. Se for um campo Data por ex. for menor q a data de hoje a linha tem q aparecer em vermelho. Se for igual em azul. E se for maior naum muda.

Entendem..... Se alguem puder me ajudar......

Valeu... Um abraço

Para isso voce tem que usar o msflex (outro componente) Eu uso a rotina abaixo

 

Sub COLOCA_GRID_CORES_CR_DB(msf As MSFlexGrid, col_cr_db As Byte)
Dim cont As Long

    On Error GoTo ERRO_COLOCA_GRID
   
    For cont = msf.FixedRows To (msf.Rows - 1)
        msf.Row = cont
        msf.ColSel = msf.Cols - 1
        If msf.TextMatrix(cont, col_cr_db) = 1 Then ' Credito
            msf.CellForeColor = QBColor(1)
        Else
            msf.CellForeColor = QBColor(4)
        End If
    Next cont
   
    Exit Sub

ERRO_COLOCA_GRID:
    Exit Sub
End Sub

Voce passa o msflex e o numero da coluna que voce quer fazer a diferenca de cores. No meu caso se a coluna tiver 1 ele vai ser credito e colocar a cor 1 (azul acho) senao coloca vermenha (4 acho) Para chamar faz

 

COLOCA_GRID_CORES_CR_DB mfg_cr_db,3

 

Onde 3 é a coluna que tera o indicador se é um credito (valor 1 ) ou debito (valor 0 )

Obs o msflex tem que ter algumas propriedades alteradas para isso funcionar.

 

Fillstyle = 1

SelectionMode = 1