Projeto MiniGui - Biblioteca visual para Harbour/xHarbour
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! -:]
Powered by phpBB © phpBB Group.
phpBB Mobile / SEO by Artodia.