Clipper On Line • Ver Tópico - Registros na Grid.
Mudar para estilo Clássico
Projeto MiniGui - Biblioteca visual para Harbour/xHarbour
Postar uma resposta

Registros na Grid.

30 Out 2006 08:51

Amigos,

Tenho um cadastro de contatos com uns 1.000 registros por enquanto, o problema que na grid aparece apenas 30 registros iniciais. Como fazer para aparecer o banco de dados inteiro?

Código:
@ 010,010 GRID Grid_Contatos   ;
         WIDTH  495              ;
         HEIGHT 329                ;
         HEADERS {"Código","Nome"}   ;
         WIDTHS  {60,350}          ;
         VALUE 1                  ;
         FONT "Arial" SIZE 09      ;
         ON DBLCLICK { || Bt_Novo_Contato(2) }


Valeu! :)Pos

30 Out 2006 11:33

Olá

Janela.Grid_Contatos.DeleteAllItems() // zera o grid
dbGoTop()
while ! eof()
Janela.Grid_Contatos.AddItem ( { CAMPO1, CAMPO2 } )
Skip
end


Acho que é isso aí...


Falou.

30 Out 2006 11:53

Fala Stanis,

Seria melhor carregar os dados do arquivo em uma matriz ou posso fazer direto, isto é, manter do jeito que esta?

Valeu!

30 Out 2006 17:30

Olá,

Aconselho manter do jeito que está, pois o grid por si só já é uma matriz.

Veja um exemplo para pegar o valor de uma determinada coluna e linha.
Note que o valor de Grid.Item(Linha) é uma matriz também que pode ser acessada normalmente, apesar da sintaxe um tanto quatnto estranha

Valor := Janela.Grid.Item(linha)[coluna]


Só complementando, este e muitos outros recursos você pode encontrar no exemplo que eu disponibilizei o código-fonte, de MiniGUI com Harbour acessando MySQL remoto. Ficou bem interessante o exemplo, e tem um grid com pesquisa letra a letra e talz....

Isso ae...

31 Out 2006 08:50

Grande Stanis,

Valeu amigão! -:]
Postar uma resposta