ANALIZAR DADOS FLEXGRID

USUARIO.EXCLUIDOS 31/03/2005 12:35:59
#76010
Caros o código abaixo le cada linha de uma coluna e se o valor for menor que 0 e muda a cor para vermelho, a duvida é a seguinte:
A grid abaixo tem apenas 1 coluna, não sei como adaptar este código para ler uma determinada coluna de um a grid com mais de uma coluna.


Obrigado


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
USUARIO.EXCLUIDOS 31/03/2005 12:51:40
#76013 Resposta escolhida

Deixa a flex com 3 colunas
MSFlexGrid1.Cols = 3
se vc quiser adicionar mais uma
MSFlexGrid1.Cols = 4
agora a flex tem 4 colunas
Para ocultar uma coluna
MSFlexGrid1.ColWidth(3) =0

Tenta assim:



Do while not colunasv >= (fg3.Cols - 1) 
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 
colunasv = colunasv + 1
loop
USUARIO.EXCLUIDOS 31/03/2005 13:22:25
#76019
Caro

With fg
fg.ColWidth(0) = 3600
fg.TextMatrix(0, 0) = "Produto"

fg.ColWidth(1) = 700
.TextMatrix(0, 1) = "Venda"

fg.ColWidth(2) = 700
.TextMatrix(0, 2) = "Break"

fg.ColWidth(3) = 1050
.TextMatrix(0, 3) = "Desperdício"

fg.ColWidth(4) = 1350
.TextMatrix(0, 4) = "Consumo Teórico"
fg.ColWidth(5) = 1250
.TextMatrix(0, 5) = "Consumo Real"



End With

como eu faço para utilizar o código postado somente na coluna 4, esta é a minha dúvida
Tópico encerrado , respostas não são mais permitidas
Voltar