Fórum TabControl - filtrando registros #227031
19/04/2004
0
:?: Olá a todos.
Tenho uma tabela com 120.000 registros.
Gostaria de usar TabControl, e cada Tab (aba)
correspondesse a uma letra do alfabeto.
Quando clicar em determinada letra o programa listasse num DBGrid apenas os registros que o campo nome inicie com a letra correspondente ao Tab selecionado.
Uso Paradox e Table, como posso fazer isso.
Muito obrigado.
Neto.
Tenho uma tabela com 120.000 registros.
Gostaria de usar TabControl, e cada Tab (aba)
correspondesse a uma letra do alfabeto.
Quando clicar em determinada letra o programa listasse num DBGrid apenas os registros que o campo nome inicie com a letra correspondente ao Tab selecionado.
Uso Paradox e Table, como posso fazer isso.
Muito obrigado.
Neto.
Neto
Curtir tópico
+ 0
Responder
Posts
19/04/2004
Motta
crie suas tabs com a letra
faça
procedure TForm1.TabControl1Change(Sender: TObject);
begin
Table1.Filter := ´COMPANY = ´ + Quotedstr(TabControl1.Tabs[TabControl1.TabIndex] +
´*´);
Table1.Filtered := True;
end;
faça
procedure TForm1.TabControl1Change(Sender: TObject);
begin
Table1.Filter := ´COMPANY = ´ + Quotedstr(TabControl1.Tabs[TabControl1.TabIndex] +
´*´);
Table1.Filtered := True;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)