COMO digitar no edit e ir filtrando os registros
10/12/2003
0
Olá pessoal estou tentando criar um filtro em meu banco atraves do edit, tipo conforme vai digitando no edit vai aparecendo os registros, tentei fazer conforme abaixo mas só funciona em banco .db preciso fazer para .dbf alguem pode me ajudar
na tabela Tcliente
procedure TForm1.TclienteFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
if (pos(Edit3.text, Tcliente.value)<> 0) then
Accept := true
else
Accept := false;
end;
end;
e no edit
procedure TForm1.Edit3Change(Sender: TObject);
begin
Tcliente.Refresh ;
end;
funciona perfeitamente em db mas preciso fazer para .dbf o erro ocorre aqui ´Tcliente.value´ ao compilar isso não é reconhecido.
O que devo fazer
Muito Obrigado
na tabela Tcliente
procedure TForm1.TclienteFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
if (pos(Edit3.text, Tcliente.value)<> 0) then
Accept := true
else
Accept := false;
end;
end;
e no edit
procedure TForm1.Edit3Change(Sender: TObject);
begin
Tcliente.Refresh ;
end;
funciona perfeitamente em db mas preciso fazer para .dbf o erro ocorre aqui ´Tcliente.value´ ao compilar isso não é reconhecido.
O que devo fazer
Muito Obrigado
Infohelp
Curtir tópico
+ 0
Responder
Posts
10/12/2003
Valdemar_d
Teste dessa forma
no onchange do edit coloque:
...
var
Texto : String;
begin
Texto := Edit.Text + ´*´;
Table1.Filter := ´FilialMesAno = ´+QuotedStr(Texto);
Table1.Filtered := True;
ou
Na Tabela => na propriedade Filter coloque:
(Campo <> ´CANCELADO´)
e escolha TRUE no Filtered
no onchange do edit coloque:
...
var
Texto : String;
begin
Texto := Edit.Text + ´*´;
Table1.Filter := ´FilialMesAno = ´+QuotedStr(Texto);
Table1.Filtered := True;
ou
Na Tabela => na propriedade Filter coloque:
(Campo <> ´CANCELADO´)
e escolha TRUE no Filtered
Responder
Clique aqui para fazer login e interagir na Comunidade :)