He adecuado el código que me facilitaron a mi proyecto
Código Delphi
[-]procedure TFClientes.Edit1Change(Sender: TObject);
begin
datamodule1.tarchivo.Filtered := False;
if (Edit1.Text <> '') then
begin
if CheckBox1.Checked then
begin
datamodule1.tarchivo.Filter := 'Nombre Like ''' + Edit1.Text + '*''';
datamodule1.tarchivo.Filtered := True
end
else if CheckBox2.Checked then
begin
datamodule1.tarchivo.Filter := 'Numero Like ''' + Edit1.Text + '*''';
datamodule1.tarchivo.Filtered := True
end
else
datamodule1.tarchivo.Filtered := False;
end;
end;
con el campo
Nombre si me hace la búsqueda
pero con el campo
Numero me sale un error de que el Filtro no se puede abrir
Alguien sabe a que se debe ?????
ayuda por favor y muchas gracias