MINER
|
POTIRENDABA
SP - BRASIL
|
|
Postada em 01/06/2005 19:47 hs
Pessoal ola sou eu dinovo HOje galera Seguinte Tenho um grid e preencho ele com este codigo meu acesso ao bd Set bd = OpenDatabase("C:CPCcpc.mdb", False, False, ";pwd=159753")
codigo que preencho o grid no form load rs.MoveMin contador = 0 I = 0 Grid.Rows = 1 Do While Not rs.EOF With Grid nlinhas = .Rows + 1 .Rows = nlinhas nPos = .Rows - 1 .Row = nPos I = I + 1 .Col = 0 .Text = rs![codigo] .Col = 1 .Text = rs![nome] .Col = 2 .Text = rs![fone] .Col = 3 .Text = rs![cidade] .Refresh End With rs.MoveNext Loop ate ai bl, mas so q a primeira linha do grid aonde teria q ficar os nomes dos campos de minha tabela nao aparece , ela fica branca e sem conteudo e so começa a preecher na segunda linha en diante. gostaria de colocar no grid o nome dos campos la emcima no cabeçalho de cada coluna. alguem tem idéia de como eu faço para acrescentar neste codigo ai e aparecer o nome dos campos no cabeçalho de cada coluna e tirar a linha em brando q aparece? Desde ja sou grato a todos |
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 01/06/2005 23:58 hs
Como voce esta preenchendo o grid na mao basta coloca na primeira linha os nomes dos campos. Não estou mais acostumado a usar o dbgrid (uso o msflex) mais acho que seria algo assim. ' Coloca na linha 0 os nomes dos campo mfg_aux.AddItem "Campo1" & Chr(9) & "Campo2", 0 ' Faz frescurar com cores e etc
mfg_aux.GridLinesFixed = flexGridInset
mfg_aux.GridColor = &HF9E6CC
mfg_aux.ForeColorFixed = &HE0E0E0
mfg_aux.BackColorFixed = &H800000
mfg_aux.BackColorSel = &HC0C0& ' Fixa a linha do cabecalho.
mfg_aux.FixedRows = 1
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
Postada em 02/06/2005 11:08 hs
Nada disso, o melhor é usar a propriedade TextMatrix: Grid.TextMatrix (0, 0) = "Campo1" Grid.TextMatrix (0, 1) = "Campo2" Grid.TextMatrix (0, 2) = "Campo3" |
|
|
|
MINER
|
POTIRENDABA
SP - BRASIL
|
|
Postada em 02/06/2005 11:21 hs
AI kERPLUNK O CABEÇALHO RESOLVEU. So q a primeira linha do grid fica vazia sem conteudo se tem ideia o porq? e como faço pra q o grid seja preenchido desde a primeira linha? o codigo ta aqui ó e esse q to usano Dim nLinhas As Integer, nPos As Integer
rs2.MoveMin
Do While Not rs2.EOF
With GRID
.TextMatrix(0, 0) = "NOME"
.TextMatrix(0, 1) = "CORTE"
.TextMatrix(0, 2) = "CHAPA"
.TextMatrix(0, 3) = "VALORC"
.TextMatrix(0, 4) = "VALORV"
.TextMatrix(0, 5) = "OBS"
nLinhas = .Rows + 1
.Rows = nLinhas
nPos = .Rows - 1
.Row = nPos
.Col = 0
.Text = rs2![nome]
.Col = 1
.Text = rs2![corte]
.Col = 2
.Text = rs2![chapa]
.Col = 3
.Text = rs2![valorc]
.Col = 4
.Text = rs2![valorv]
.Col = 5
.Text = rs2![obs]
.Refresh
End With
rs2.MoveNext
Loop fico grato cara se puder me ajudar. |
|
|
|
MINER
|
POTIRENDABA
SP - BRASIL
|
|
Postada em 02/06/2005 13:08 hs
Galera alguem pode me ajudar?help? Uma dica uma luz aqui ? Fico grato a todos. |
|
|
|
MINER
|
POTIRENDABA
SP - BRASIL
|
|
Postada em 06/06/2005 13:21 hs
Pessoal Alguem me de uma dica pelomenos porq nao consegui nada a respeito desse problema ja tentei aqui mas nao consegui nao galera Fico grato se alguem puder me ajudar. |
|
|
|
