FLEXGRID ALTERAR COR

USUARIO.EXCLUIDOS 28/03/2005 21:27:59
#75471
Caros a consulta abaixo alimenta um msflexgrid a estrutura if verifica se o numero for menor que zero muda a cor para vermelho e positivo para azul, mas a rotina apenas está verificando o primeiro registro da grid, como eu faço para a rotina ler todos os registros do Grid ????

Grato

'Desvio
sql7 = "SELECT SUM(consumoteorico - (estoqueinicial + compras - estoquefinal)) as consumo From kr3 WHERE descricao_insumo = descricao_insumo group by descricao_insumo "
Data4.RecordSource = sql7
Data4.Refresh

With fg3
fg3.ColWidth(0) = 800
.TextMatrix(0, 0) = "Desvio"
End With

If Val(fg3.Text) < 0 Then
fg3.CellForeColor = vbRed
Else
fg3.CellForeColor = vbBlue
End If
USUARIO.EXCLUIDOS 29/03/2005 01:23:52
#75486 Resposta escolhida
OLà, Cristian

segue o código:


With fg3
.ColWidth(0) = 800
.TextMatrix(0, 0) = "Desvio"

For i = 1 To .Rows - 1
.Row = i
If Val(.Text) < 0 Then
.CellForeColor = vbRed
Else
.CellForeColor = vbBlue
End If
Next

End With


Boa sorte!!!
Michel
Tópico encerrado , respostas não são mais permitidas
Voltar