Problema Con Quickreport

[Richard Mejia]

tengo un pequeño problema el caso es el sigte tengo un formulario que sus campos los quiero imprimir tengo un QuiREport en un form con sus en fin el caso es q cuando le doy a imprimir que me tira en pantalla en el boton imprimir tengo el sigte codigo:
DataModule1.VconsultaServicios.open; //me abre la tabla consultaservicios//
fimprimeservicios.QuickRep1.Preview; //me da un preview del reporte

en el reporte me salen todos los registros de esa tabla en ves de salirme el registro al cual quiero imprimir

estoy utilizando Delphi 2009 por favor alguna ayuda gracias!

[marcoszorrilla]

Lo más simple es que antes de lanzar QuickReport, pongas un filtro a la tabla por un campo único que seguramente será ID es decir la Clave Primaria.

Código Delphi [-]
Table1.Filter:='ID ='+Table1Id.AsString;
Table1.Filtered:=True;
//Aquí lanzas quickreport

Table1.Filter:='';
Table1.Filtered:=False;

Un Saludo.

[rgstuamigo]

Revisar éste hilo..
Saludos...

[[Caral]]

Hola
Es lo mas lógico (hacer un filtro).
Por lo menos con tan poca información.
Saludos

[Richard Mejia]

Empezado por marcoszorrilla

Lo más simple es que antes de lanzar QuickReport, pongas un filtro a la tabla por un campo único que seguramente será ID es decir la Clave Primaria.
Código Delphi [-]Table1.Filter:='ID ='+Table1Id.AsString; Table1.Filtered:=True; //Aquí lanzas quickreport Table1.Filter:=''; Table1.Filtered:=False;


Un Saludo.

no entiendo ese codigo ademas me da error cuando ejecuto el programa

[rgstuamigo]

Empezado por Richard Mejia

no entiendo ese codigo ademas me da error cuando ejecuto el programa

Bueno... el código de marcoszorrilla es solo un ejemplo de cómo debes hacer el filtrado de tu DataSet (Table,Query,etc.),lo cual no significa que que debes copiarlo tal como está..,, debes adaptarlo de acuerdo al código que tú tienes. Por ejemplo veo que tu dataSet se llama VconsultaServicios y segun tu código dicho componente está en un DataModule entonces debes cambiar esa parte. mas o menos así:

Código Delphi [-]
DataModule1.VconsultaServicios.Filter:='ID ='+Table1Id.AsString;{<-Es lógico que esta linea depende del nombre de tus
                              campo o columnas de tu tabla  }
DataModule1.VconsultaServicios.Filtered:=True;
//Aquí lanzas quickreport

DataModule1.VconsultaServicios.Filter:='';
DataModule1.VconsultaServicios.Filtered:=False;