Ver Mensaje Individual
  #1  
Antiguo 03-01-2007
droide01 droide01 is offline
Registrado
 
Registrado: ene 2007
Posts: 1
Reputación: 0
droide01 Va por buen camino
Question 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?

Un saludo

Droide01
Responder Con Cita