Clipper On Line

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?

 @ 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

Olá

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

Acho que é isso aí...


Falou.

Fala Stanis,

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

Valeu!

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...

Grande Stanis,

Valeu amigão! -:]