Partimos de QuickReport totalmente en blanco.
colocamos una sola consulta que tiene en su sql esto:
Código SQL
[-]
select nombre, tipo from Tabla
group by tipo, nombre
order by tipo asc;
QuickReport1.Dataset := query1;
Ahora desde la paleta Qreport, añadimos un QRGROUP, dentro de ella colocamos:
- Un qrLabel con el caption : "Tipo:"
- Un qrDBText, asociado a la query y con el campo a Tipo.
Estos 2 componentes, ponemos su Fuente en negrita.
desde la paleta Qreport, añadimos un QRBand:
- en su propiedad BandType elegimos : rbGroupFooter
- Colocamos 2 qrdbtext uno para el nombre y otro para el tipo (con fines de pruebas y que veas como va el asunto)
Ahora tenemos que unir las dos bandas, para ello, damos un clic a la banda Qrgroup y en en object inspector modificamos:
- Expression := 'Tipo' (sin las comillas)
- FooterBand: QrBand2 (la banda donde tienes el campo nombre y Tipo)
Cuando cambie el valor del campo "Tipo", mostrará una linea en negrita que dice "Tipo X", y ahora en la banda Qrband2, aparece el nombre de todos
En la banda Qrgroup, tambien tienes la propiedad ForceNewPage, si lo pones a true, cada vez que el Tipo cambie, saltará de hoja.
Un saludo y espero te ayude.