COMO digitar no edit e ir filtrando os registros

10/12/2003

7

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


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


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar