Здравствуйте, уважаемые форумчане! Подскажите, пожалуйста, как выгрузить в Excel данные из двух связанных таблиц? или, хотя бы - одну строку родительской таблицы и все записи к ней дочерней ...
Данные дочерней таблицы отлично экспортируются таким кодом:
Код:
procedure ExpGraf;
var
XL, XArr: Variant;
i: Integer;
j: Integer;
begin
XArr:=VarArrayCreate([1,fDM.TSostPar.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Application');
XL.WorkBooks.add;
j := 2;
fDM.GrafQuery.First;
while not fDM.GrafQuery.Eof do
begin
i:=1;
while i<=fDM.GrafQuery.FieldCount do
begin
XArr[i] := fDM.GrafQuery.Fields[i-1].Value;
i := i+1;
end;
XL.Range['A'+IntToStr(j),
CHR(64+fDM.GrafQuery.FieldCount)+IntToStr(j)].Value := XArr;
fDM.GrafQuery.Next;
j:=j+1;
end;
XL.Range['A1',CHR(64+fDM.GrafQuery.FieldCount)+IntToStr(j)].select;
XL.Selection.Font.Name:='Times New Roman';
XL.Selection.Font.Size:=12;
XL.selection.Columns.AutoFit;
XL.Selection.RowHeight:=15;
with fMain.SaveDialog1 do
if Execute then
xl.ActiveWorkbook.SaveAs(FileName);
XL.Range['A1','A1'].select;
XL.visible:=true;
end;
А как сделать, чтобы в EXCEL в строку выше (перед записями дочерней таблицы) экспортировать запись родительской таблицы??