Postada em 31/07/2013 08:27 hs
Amigo, obrigado por tentar ajudar, porém, esse código ai, só funciona para uma linha, no meu mshflexgrid, tenho em torno de 15 linhas e tem umas 10 que vão ter o código 1 e as outras com código 2, por exemplo. assim, quero e que todas as linhas que estiverem com o código 1, fiquem vermelhas, e todas as que estiverem com o código 2, fiquem azul.
Se puder me ajudar te agradeço, pois já tentei usar o código abaixo e ainda cheguei a obter resultado, porém, depois não deu mais, parou de funcionar.
Sub ColorirGrid()
Dim iL As Integer, iC As Integer
With TDBGrid1
For iL = 1 To .Rows - 1
For iC = 0 To .Cols - 1
.Col = iC
.Row = iL
If .TextMatrix(.Row, 6) = "1" Then
.CellBackColor = &HC0C0FF
ElseIf .TextMatrix(.Row, 6) = "2" Then
.CellBackColor = &HFEE3C0
End If
Next iC
Next iL
End With
End Sub
|
