Details Horizontales y repetidos en QReport??

[atani123]

Mira en la ayuda de delphi TTable.CreateTable, trae un ejemplo que solo tendras que modificar.
Despues de crear la tabla realizas un buccle del sql que tengas. (Ire algo rapido y no te fies de la sintaxis)

(En la tabla no hace falta que pongas DatabaseName, si no en tablename ves directo ej: Tablen ame := 'C:\tmp\paradox\tmpTable.db'


nId := 1;

For nI := 1 to nEtiquetasEnBlanco Do
Begin
Table.AppendRecord( [nId, '', '']); // Insertamos la etiquetas que quieras en blanco
Inc( nId);
End;


Query.First
While not Query.Eof Do
Begin
For nI := 1 To 8 Do // 8 Etiquetas por codigo
Begin
Table.AppendRecord( [nId, Query[ 'Codigo'], Query[ 'Descripcion']]);
Inc( nId);
End;
Query.Next;
End;

Despues solo tienes que asociar la tabla creada y llena al report.