Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Ayuda en la creación grupos sin dataset (https://www.clubdelphi.com/foros/showthread.php?t=38895)

droide01 03-01-2007 21:00:58

Ayuda en la creación grupos sin dataset
 
Hola a todos
Estoy intentando crear lista por grupos con el QuickReport sin usar DataClient. Para ello estoy utilizando el evento OnNeedData que se encarga de leer la lista de datos que le mando. Aquí teneis un ejemplo:
//---------------------------------------------------------------------------
void __fastcall TForm2::qrNeedData(TObject *Sender, bool &MoreData)
{
TNodoUsuario* Nodo;
Nodo = (TNodoUsuario*)lista->getCurrent();
if (Nodo == NULL) {
MoreData = false;
return;
}
qrCabecero->Caption = Nodo->asCabecero;
qrNombre->Caption = Nodo->asNombre;
qrIdentificacion->Caption = Nodo->asIdentificacion;
lista->setNext();
MoreData = true;
}

Los datos a mostrar tienen la siguiente estructura:
AnsiString asUsuario[10][3] = {{"Primero","Alfonso", "10101010L"},
{"Primero","Andrea", "12121212T"},
{"Primero","Maria", "14141414F"},
{"Segundo","Cristina", "15151515D"},
{"Segundo","Lorenzo", "16161616S"},
{"Segundo","Javier", "17171717G"},
{"Segundo","Montse", "18181818V"},
{"Tercero","Iván", "19191919A"},
{"Tercero","Mónica", "21212121A"},
{"Tercero","Francisco", "22222222R"}};

He conseguido que me salga de la siguiente forma::)

Primero
Alfonso 10101010L
Primero
Andrea 12121212T
...
Para ello estoy ulizando un GroupHeader y un SubDetail.
Pero no consigo establecer un criterio que me permita agrupar por el campo Cabecero, en este caso 'Primero'|'Segundo','Tercero':(

He estado mirando la ayuda y he visto que existe la propiedad Expresion que permite especificar este criterio, pero sólo para DataClient.

¿Sabe alguien cómo puedo establecer el criterio de agrupamiento sin usar DataClient?:confused: :confused: :confused: :confused: :confused:

Un saludo

Droide01


La franja horaria es GMT +2. Ahora son las 05:08:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi