Filtrar

[pepelu1975]

El codigo de Busqueda es:

TObras.Filter := 'cod_expo = ' + QuotedStr(Edit1.Text);
TObras .Filtered := True;
FListadoObras.QuickRep1.Preview;

Entonces no se si existe la opcion Refresh, y si existiera la debo de poner tanto en el campo Edit1 para que me quite el valor introducido antes y ademas ponerlo en el QuickRep1?

[__cadetill]

Pues esto debería de funcionarte

Código Delphi [-]
TObras.Filtered := False;
TObras.Filter := 'cod_expo = ' + QuotedStr(Edit1.Text);
TObras.Filtered := True;
FListadoObras.QuickRep1.Preview;

[pepelu1975]

si que me funciona, el problema es que si lo cierro y vuelvo a hacer una consulta en el QuickReport me sale la consulta nueva mas la anterior

[__cadetill]

mira de debuggear a ver que valores estás poniendo en el filtro. No tiene mucho sentido lo que comentas

[pepelu1975]

Me da la impresion que el problema no es del filtro sino del QuickReport que he creado, voy a ver que consigo sacar por ese lado.
Gracias por todo

[marcoszorrilla]

Código Delphi [-]
TObras.Filtered := False;
TObras.Filter := 'cod_expo = ' + QuotedStr(Edit1.Text);
TObras.Filtered := True;
ShowMessage(Tobras.Filter); //Para ver el contenido del filtro
FListadoObras.QuickRep1.PreviewModal;
FListadoObras.Close;

En el OnClose del Formulario que contiene QuickReport

Código Delphi [-]
Application.ProcessMessages;
FreeAndNil(QuickRep1);
Action:=CaFree;

Un Saludo.

[pepelu1975]

Me he fijado y la cuestion es que siempre que le pulso al boton de filtrar en el Qreport me aparecen todas las obras, tengan el codigo de exposicion que tengan