Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.01.2016, 08:22
Seivan Seivan вне форума
Прохожий
 
Регистрация: 17.12.2013
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию В Excel - связанные таблицы

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

Последний раз редактировалось Seivan, 14.01.2016 в 09:00.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:25.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter