Ver Mensaje Individual
  #1  
Antiguo 24-12-2003
Avatar de sitrico
[sitrico] sitrico is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 295
Reputación: 24
sitrico Va por buen camino
Crear las columnas en Runtime (QReport)

Primero lo primero: Felices Fiestas.

Ya entrando en materia: necesito crear en runtime las columnas de un reporte qReport (QRDBText) y sus titulos asociados (QRDBLabel) en tiempo de ejecución. (Cada uno está en su QRBand respectivo).

La intención es poder imprimir una BDD (Paradox) que se muestra en un DBGrid, el usuario puede escojer entre las diferentes BDD del sistema para consultarlas y la intención es crear un reporte generico que incluya todos (o algunos) de los campos de la BDD consultada para generar el reporte.

Lo que necesito es un ciclo mas o menos:

For i := 0 to DBGrid.Colums.count-1 do
c := tQRDBText.Create(Self);
c.Top,Left,Width... // Asignar posicion y tamaño
c.DataSet, FieldName... // Asignar Tabla y campo
Como asigno el nuevo objeto al Band? ¿AddPrintable?
c.free???? // se debe liberar antes de crear el otro?
End;

Creo que es más o menos lo que se debe hacer pero en las pruebas que he realizado no logro asignar el objeto a la banda del reporte correspondiente.

Gracias por su ayuda.
__________________
Sitrico
Responder Con Cita