Código Delphi [-] var Filtro : String; begin If (Edit1.Text <> '') then begin AdoTable1.Filtered := False; Filtro := 'nombre Like '''+ Edit1.Text + '*'''; AdoTable1.Filter := Filtro; AdoTable1.Filtered := True end else AdoTable1.Filtered := False; end;
var Filtro : String; begin If (Edit1.Text <> '') then begin AdoTable1.Filtered := False; Filtro := 'nombre Like '''+ Edit1.Text + '*'''; AdoTable1.Filter := Filtro; AdoTable1.Filtered := True end else AdoTable1.Filtered := False; end;