Hola muy buenas tardes tengan ustedes...
Estoy haciendo una base de datos donde tengo que filtrar dos campos a la vez pero no puedo
y quisisera saber como hacerles, miren, esto es lo que estoy haciendo:
procedure TForm1.Edit1Change(Sender: TObject);
begin
// filtrar o localizar
if (not cbFiltrar.Checked) then begin
// Busqueda incremental
ClientDataSet1.Locate('Campo4', Edit1.Text, [loCaseInsensitive, loPartialKey]);
Exit;
end
else begin
// esto sería para filtrar
if (Edit1.Text = '') then
begin
ClientDataSet1.Filtered := false;
ClientDataSet1.Filter := '';
end
else begin
ClientDataset1.Open;
ClientDataSet1.Filter := '(Campo4 =' +QuotedStr(Edit1.Text) +') and (Campo5 = '+QuotedStr(Edit2.Text)+ ')';
ClientDataSet1.Filtered := True;
end;
end;
end;
y pues nomas no lo filtra.... por favor quien me pueda ayudar se lo agradeceria bastante.