COR NO DATAGRID

GOLVEIAR 31/10/2011 21:39:03
#388241

O galera to mesmo precisando de ajuda de uma sugestão. Desde ja agradeço

ALVAROVB2009 01/11/2011 12:28:17
#388259 Resposta escolhida

Golvejar pelo que eu conheço o datagrid não permite alterar a cor, se eu fosse você trocaria ele pelo msflexgrid, que é o que utilizo. Segue abaixo como que faço para preencher ele e para deixar ele zebrado

Aqui vc monta o cabeçalho dele
tbConsHistRet.Clear
tbConsHistRet.Rows = 1
tbConsHistRet.Cols = 6
tbConsHistRet.TextMatrix(0, 1) = [Ô]Numero do Retorno[Ô]
tbConsHistRet.TextMatrix(0, 2) = [Ô]Banco[Ô]
tbConsHistRet.TextMatrix(0, 3) = [Ô]Conta[Ô]
tbConsHistRet.TextMatrix(0, 4) = [Ô]Data do Movimento[Ô]
tbConsHistRet.TextMatrix(0, 5) = [Ô]Codigo do Retorno[Ô]

tbConsHistRet.ColWidth(0) = 0
tbConsHistRet.ColWidth(1) = 2000
tbConsHistRet.ColWidth(2) = 3000
tbConsHistRet.ColWidth(3) = 2000
tbConsHistRet.ColWidth(4) = 1600
tbConsHistRet.ColWidth(5) = 0


E aqui eu preenche ele depois de fazer a consulta
I = 1
LCols = 6
LCol = 0
LRow = 1

While TbBusca.EOF = False
tbConsHistRet.Rows = I + 2
tbConsHistRet.TextMatrix(I, 0) = I
tbConsHistRet.TextMatrix(I, 1) = TbBusca!numRetSicas
tbConsHistRet.TextMatrix(I, 2) = TbBusca!Bancoguiasindical
tbConsHistRet.TextMatrix(I, 3) = TbBusca!NContaguiasindical
tbConsHistRet.TextMatrix(I, 4) = Format(TbBusca!dtprocretSicas, [Ô]dd/mm/yyyy[Ô])
tbConsHistRet.TextMatrix(I, 5) = TbBusca!CodRetSicas
For LCol = 0 To LCols - 1
tbConsHistRet.Col = LCol
tbConsHistRet.Row = LRow
[ô]alterna a cor das linhas do grid
If (LRow Mod 2) = 0 Then
tbConsHistRet.CellBackColor = &HFFFFFF
Else
tbConsHistRet.CellBackColor = &HE0E0E0
End If
Next

LRow = LRow + 1
I = I + 1
TbBusca.MoveNext
Wend


Qqer coisa posta ai