Ver Mensaje Individual
  #8  
Antiguo 28-12-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Javier.

El código anterior lo escribí en el aire, pero acabo de probarlo y filtra sin error. Por el tipo de error que te arroja diría que revises que el campo Nombre exista o esté bién escrito.

Este es el código exácto de la prueba que hice ahora y funciona correctamente:
Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
 if Edit1.Text > '' then
  begin
    ADOTable1.Filtered:= False;
    ADOTable1.Filter:= 'Name LIKE ' + QuotedStr(Edit1.Text+ '*');
    ADOTable1.Filtered:= True;
  end
  else
    ADOTable1.Filtered:= False;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 28-12-2011 a las 20:00:55. Razón: corrección ortográfica
Responder Con Cita