Ver Mensaje Individual
  #4  
Antiguo 09-06-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Que yo sepa Paradox no acepta filtros del tipo contiene, solamene comienza por.

Por lo tanto tendrás que utilizar el evento FilterRecord del Dataset, en este ejemplo utilizamos un edit, para escribir el filtro parcial que queremos y luego mediante un botón accionamos:

MiTabla.Filtered:=True;

Entonces se ejecuta el código al efecto que sigue:

Código:
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  sp, ss: ShortString;
begin

  with DataSet do
  begin
  //En el Tedit escribimos la cadena a filtrar
    sp :=EdMifiltro.Text;  {TEdit Contiene la subcadea a filtrar}

    ss:= AnsiUpperCase(FieldByName('Codigo').asString);
    Accept := Pos(sp, ss) > 0;
  end;
end;
Un Saludo.
Responder Con Cita