Filtrar

pepelu1975 · #1 12-05-2004

Debo de estar hoy muy espeso orque no entiendo nada, gracias por vuestra ayuda a ver si me concentro un poco y lo saco.

marcoszorrilla · #2 12-05-2004

Con lo que te han dicho Nuria y Cadetill sería más que suficiente, pero dado el espesor matutino que confiesas te amplio un poco más, pon un Tedit, escribe el código o dato a filtrar y en un botón pon el código siguiente:

Código Delphi [-]Table1.Filter := 'Codigo = '+QuotedStr(Edit1.Text);
Table1.Filtered := true;

Ya puestos pones una rejilla que visualice los datos desde el principio así verás como al poner el filtro éste funciona.

Ahora lanzas quickreport y solamente te mostrará los elementos que pasen el filtro.

Un Saludo.

pepelu1975 · #3 12-05-2004

Gracias a todos los que ayudan a encontrar la fluidez en dias de espesor.

pepelu1975 · #4 12-05-2004

Se me ha vuelto a apagar la bombilla, la primear busqueda me la hace perfecta, pero el problema aparece cuando intento hacer una segunda busqueda, porque en el QReport me aparecen los datos de la primera y de la segunda y asi sucesivamente, existe algun comando que limpie de datos el Qreport.

Gracias

__cadetill · #5 12-05-2004

y cómo lo haces? Pon algo de código a ver si damos con la solución

PD: acuerdate de usar la etiqueta [ code ] o [ delphi ]

pepelu1975 · #6 12-05-2004

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 · #7 12-05-2004

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;