|
Postada em 18/08/2008 16:33 hs
Pessoal, por favor, me ajudem! Já tentei de mtas maneiras, mas não estou conseguindo! Seguinte!! Eu estou puxando do banco de dados algumas informações, mais ou menos assim: .AddItem "" flexgrid.TextMatrix(.Rows - 1, 0) = rs(9) flexgrid.TextMatrix(.Rows - 1, 1) = rs(0) flexgrid.TextMatrix(.Rows - 1, 2) = rs(10) flexgrid.TextMatrix(.Rows - 1, 3) = rs(49) flexgrid.TextMatrix(.Rows - 1, 4) = rs(50) flexgrid.TextMatrix(.Rows - 1, 5) = rs(44) flexgrid.TextMatrix(.Rows - 1, 6) = rs(1) flexgrid.TextMatrix(.Rows - 1, 7) = rs(2) flexgrid.TextMatrix(.Rows - 1, 8) = rs(3) flexgrid.TextMatrix(.Rows - 1, 9) = rs(4) flexgrid.TextMatrix(.Rows - 1, 10) = rs(5) flexgrid.TextMatrix(.Rows - 1, 11) = rs(6) flexgrid.TextMatrix(.Rows - 1, 12) = rs(7) flexgrid.TextMatrix(.Rows - 1, 13) = rs(8) rs.MoveNext Eu preciso colorir a linha da coluna 12(rs7) usando essa fórmula a= rs(1) - rs(2) If a< rs(7) then flexgrid.TextMatrix(.Rows - 1, 12) = rs(7) = .forecolor = vbred end if Mas não vai de jeito nenhum...Alguem saberia me explicar como eu posso fazer??? POR FAVOR!!!
|
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2008 18:29 hs
Tenta assim Juliana veja .AddItem "" flexgrid.TextMatrix(.Rows - 1, 0) = rs(9) flexgrid.TextMatrix(.Rows - 1, 1) = rs(0) flexgrid.TextMatrix(.Rows - 1, 2) = rs(10) flexgrid.TextMatrix(.Rows - 1, 3) = rs(49) flexgrid.TextMatrix(.Rows - 1, 4) = rs(50) flexgrid.TextMatrix(.Rows - 1, 5) = rs(44) flexgrid.TextMatrix(.Rows - 1, 6) = rs(1) flexgrid.TextMatrix(.Rows - 1, 7) = rs(2) flexgrid.TextMatrix(.Rows - 1, 8) = rs(3) flexgrid.TextMatrix(.Rows - 1, 9) = rs(4) flexgrid.TextMatrix(.Rows - 1, 10) = rs(5) flexgrid.TextMatrix(.Rows - 1, 11) = rs(6) flexgrid.TextMatrix(.Rows - 1, 12) = rs(7) flexgrid.TextMatrix(.Rows - 1, 13) = rs(8) a= rs(1) - rs(2) If a< rs(7) then For i = flexgrid.FixedCols To flexgrid.Cols - 1 flexgrid.Col = 12 flexgrid.CellBackColor = &HFF& ' cor alterada Next i end if rs.MoveNext
|
|
|
|