hola quiero exportar el contenido de una consulta maestro detalle a una hoja de excel y lo hago mediante el siguiente codigo pero no logro imprimir el detalle de cada registro de maestro.
Código Delphi
[-]procedure TForm_requerimiento.btn2Click(Sender: TObject);
var Excel,libro:Variant;
i,i_det:Integer;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.WorkBooks.Add (-4167);
Excel.WorkBooks[1].WorkSheets[1].Name := 'Reporte';
Libro := Excel.WorkBooks[1].WorkSheets['Reporte'];
with Qry_resumen do
begin
First;
i:=i+1;
while not Qry_resumen.Eof do
begin
i:=i+1;
Libro.Cells [1,1] := 'Licitación';
Libro.Cells [1,2] := 'Zona';
Libro.Cells [1,3] := 'Gpo';
Libro.Cells [1,4] := 'Gen';
Libro.Cells [1,5] := 'Esp';
Libro.Cells [1,6] := 'dif';
Libro.Cells [1,7] := 'Var';
Libro.Cells [i,1] :=Qry_resumen.FieldByName ('licitacion').AsString;
Libro.Cells [i,2] :=Qry_resumen.FieldByName ('zona').AsString;
libro.Cells [i,3] :=Qry_resumen.FieldByName ('gpo').AsString;
Libro.Cells [i,4] :=Qry_resumen.FieldByName ('gen').AsString;
Libro.Cells [i,5] :=Qry_resumen.FieldByName ('esp').AsString;
Libro.Cells [i,6] :=Qry_resumen.FieldByName ('dif').AsString;
Libro.Cells [i,7] :=Qry_resumen.FieldByName ('var').AsString;
with Qry_detalle do
begin
First;
while not Qry_detalle.Eof do
begin
Libro.Cells [9,1] :=Qry_detalle.FieldByName ('licitante').AsString;
Next;
end;
end;
Next;
end;
Excel.visible:=True;
end;
la consulta maestro tiene 4 registros y a su vez cada registro de maestro tiene 5 0 6 registros detalle lo que quiero en la hoja de excel seria
registro query maestro 1
y todos los registros detalle
celda en blanco
registro query maestro 2
y todos sus registros detalle
y asi hasta que termine con los registros de la consulta maestro.
alguna idea, de antemano muchas gracias