Ver Mensaje Individual
  #3  
Antiguo 14-04-2010
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.
Tal como dice Neftali el tema pasa por capturar un evento para buscar y filtrar el resultado.
Podrías usar el evento OnSetText del campo asociado, y realizar allí los pasos pertinentes.

Con un TTable:
Código:
{ TTABLE: Usando DBDEMOS, customer.db }
procedure TForm1.Table1StateSetText(Sender: TField; const Text: String);
begin
   with Table1 do
   begin
      DisableControls;
      Filter:=Format('[%s] %s %s', ['State', '=', QuotedStr(Text)]);
      Filtered:= True;
      EnableControls;
      Append;
   end;
 
end;
Con un TIBTable:
Código:
{ TIBTABLE: Usando EMPLOYEE.GBD, CUSTOMER}
procedure TForm1.IBTable1COUNTRYSetText(Sender: TField;
const Text: String);
begin
   with IBTable1 do
   begin
      DisableControls;
      Filter:= Format('%s %s %s',['COUNTRY', '=' ,QuotedStr(Text)]);
      Filtered:= True;
      EnableControls;
      Append;
    end;
end;
Con algunas modificaciones no veo problema para que funcione con un IBDataSet.
Faltarían asimismo ajustar OnKeyPress del DBGrid (mayúsculas o minúsculas) y algún detalle más que puedas encontrar.

Saludos.
__________________
Daniel Didriksen

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