|
|
Postada em 10/02/2011 15:12 hs
Fala meu brother, disso eu já tinha percebi, só que no meu flexgrid, tentei fazer a correção e deu o erro que postei, vou postar as linhas do meu código, e se vc ou outro fera poder dá uma olha, vou ficar muito grato! |
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/02/2011 16:28 hs
Tente assim:
Dim sFORMAT As String
sFORMAT = "<Aluno|^Preço"
MSFlexGrid1.FormatString = sFORMAT
For x = 0 To 3
IfF X > 0 Then
MSFlexGrid1.Row = x
MSFlexGrid1.Col = 2
If MSFlexGrid1.TextMatrix(x, 2) > 6 Then
MSFlexGrid1.CellForeColor = vbGreen
Else
If MSFlexGrid1.Textmatrix(x, 2) < 3 Then
MSFlexGrid1.CellForeColor = vbRed
Else
MSFlexGrid1.CellForeColor = vbBlue
End If
End If
End If
Next
Se quiser colorir toda a linha:
MSFlexGrid1.Col =0
MSFlexGrid1ColSel = MSFlexGrid1.Cols - 1
Espero que ajude
vlu//
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/02/2011 16:31 hs
Tem uma coisa, no comando:
For x = 0 To 3. aqui ele só vai ter efeito, para 2 registros, se houver apenas um retorna erro o melhor seria:
For x = 0 To rs.RecordCount ' sua tabela, seu Recordset, sua Consulta, seus dados carregados.
vlu//
|
|
|
|
|
