
11-07-2006
|
|
Miembro
|
|
Registrado: jul 2006
Posts: 63
Reputación: 20
|
|
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.
|