Registros na Grid.

[momente]

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: Selecionar todos

 @ 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

[Stanis Luksys]

Olá

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

Acho que é isso aí...


Falou.

[momente]

Fala Stanis,

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

Valeu!

[Stanis Luksys]

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

[momente]

Grande Stanis,

Valeu amigão! -:]