[Seivan]

Здравствуйте, уважаемые форумчане! Подскажите, пожалуйста, как выгрузить в Excel данные из двух связанных таблиц? или, хотя бы - одну строку родительской таблицы и все записи к ней дочерней ...

Данные дочерней таблицы отлично экспортируются таким кодом:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

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 в строку выше (перед записями дочерней таблицы) экспортировать запись родительской таблицы??