COLORIR LINHA FLEXGRID

VILANOVA 05/07/2012 21:29:27
#405629
Senhores, como eu faço para colorir a linha inteira do grid com as informacoes de cor que estao no banco de dados.. ex : estou preenchendo um grid, e no loop do preenchimento quero preencher aquela determinada linha de acordo com a informacao que o usuario escolheu de cor.. ex :

Do While Not MyRS.EOF
strSQL = IIf(IsNull(MyRS!Id), 0, Val(MyRS!Id))
strSQL = strSQL & Chr(9) & IIf(IsNull(MyRS!Id), 0, Format(MyRS!Id, [Ô]000000[Ô]))
strSQL = strSQL & Chr(9) & IIf(IsNull(MyRS!stdescricao), [Ô][Ô], Trim$(MyRS!stdescricao))
strSQL = strSQL & Chr(9) & IIf(IsNull(MyRS!stativo), 0, Trim(MyRS!stativo))
.AddItem strSQL

[ô]AQUI QUERIA COLORIR A LINHA DO GRID COM A COR QUE ESTA DEFINIDA NO BANCO..
GRID.CELBACKCOLOR = MYRS!CORBD

MyRS.MoveNext: DoEvents

Loop
so que nao esta dando certo, alguem pode dar uma força.?
ANDPAG 06/07/2012 00:21:54
#405640 Resposta escolhida
depois do .additem strSQL cove coloca

dim viA as integer

grid.col = 0
grid.row = grid.rows-1

for via = 0 to grid.cols-1
grid.cellbackcolor = myrs!cordb
next via

esse é um jeito,,, voce seta a coluna 0 e a ultima linha que foi inserida no grid e roda o loop que vai colorir celula a celula ate a ultima coluna

abs
VILANOVA 06/07/2012 11:28:30
#405650
opa, bom dia, andpag nao deu certo nao, as celulas nao foram coloridas.
ANDPAG 06/07/2012 13:47:21
#405658
opa foi mal faltou um detalhe

for via = 0 to grid.cols -1
grid.col = via

grid.cellbackcolor = myrs!cordb
next via

faltou o grid.col = via para atualizar a coluna
MARCELO.TREZE 06/07/2012 13:48:37
#405659
é assim colega

With MSFlexgrid1
For f = 0 To .Cols - 1
.Row = 2 [ô] aqui voce escolhe a linha que deseja colorir
.Col = f
.CellForeColor = vbRed
Next f
End With
Tópico encerrado , respostas não são mais permitidas
Voltar