Ver Mensaje Individual
  #5  
Antiguo 11-07-2006
atani123 atani123 is offline
Miembro
 
Registrado: jul 2006
Posts: 63
Reputación: 20
atani123 Va por buen camino
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.
Responder Con Cita