Hola
La logica del proceso es esta:
Código Delphi
[-]procedure TForm5.Edit1Change(Sender: TObject);
begin
ADOTable1.Filtered := False;
if (Edit1.Text <> '') then
begin
if CheckBox1.Checked then
begin
ADOTable1.TableName:= 'mitabla1';
ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
ADOTable1.Filtered := True
end
else if CheckBox2.Checked then
begin
ADOTable1.TableName:= 'mitabla2';
ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
ADOTable1.Filtered := True
end
else if CheckBox3.Checked then
begin
ADOTable1.TableName:= 'mitabla3';
ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
ADOTable1.Filtered := True
end
else
ADOTable1.Filtered := False;
end;
end;
end;
Saludos
EDITO: Por supuesto teniendo en cuenta abrir y cerrar la tabla correspondiente.
EDITO2: Me faltaron comillas jejeje