Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перенос футера EhGrid в Excel [D6, IB6.x]

ИринаС © (2003-04-15 07:45:00)
Ребята, подскажите plz как сделать чтоб футер EhGrid переносился в Excel вместе с отобранной в запросе информацией

Alexandr (2003-04-15 14:09:00) [1]
а вот это не подойдет?

Specifies whether the SumListProducer will create record bookmark list for nosequenced dataset.

property VirtualRecords: Boolean;

Description
Set VirtualRecords to True to force SumListProducer to create record bookmark list if DataSet.IsSequenced = False. In that case you can use RecNo property to receive record number on attitude Next/Prev operations for nosequenced dataset.

EhLib Software

Johnmen (2003-04-15 13:25:00) [2]
>ИринаС

А почему же должно переноситься то ? Если не переносишь !

ИринаС (2003-04-15 13:00:00) [3]
Переношу таким образом

BeginCol:=2;
BeginRow:=9;
RowCount:=Query1.RecordCount;
ColCount:=Query1.FieldDefs.Count;
ExcelApp:= CreateOleObject("Excel.Application");
ExcelApp.Application.EnableEvents:=false;
Workbook:=ExcelApp.WorkBooks.Add("NameFile");
ArrayData:=VarArrayCreate([1,RowCount,1,ColCount], varVariant);
Query1.DisableControls;
Query1.First;
While Not Query1.Eof do
for i:=1 to RowCount do
begin
for J:=1 to Query1.FieldDefs.Count do
ArrayData[i, J]:=Query1.Fields[J-1].Value;
Query1.Next;
End;
Query1.EnableControls;
Cell1 :=WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
Cell2 :=WorkBook.WorkSheets[1].Cells[BeginRow + RowCount -1, BeginCol + ColCount -1];
Range:= WorkBook.WorkSheets[1].Range[Cell1, Cell2];
Range.Value:=ArrayData;

Vick (2003-04-15 12:57:00) [4]
У него есть стандартные функции

SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, ТвойGrid, FileName, true);

Почитай хелп, аналогично для текстовых файлов, Веб-страничек и ХМЛ

ИринаС (2003-04-15 12:53:00) [5]
Создаю вариантный массив

Vick (2003-04-15 12:51:00) [6]
А как в Excel переносишь???

ИринаС (2003-04-15 12:50:00) [7]
А прикол в том. после формирования запроса в Gride отображается выбранная информация и отображается строка в Footer, а при переносе всего этого в Excel в нем строка Footer"a не отображается

Соловьев (2003-04-15 09:46:00) [8]
ИринаС (15.04.03 07:45)

> футер - Footer - "подвал"

ну и? Не понял, в чем прикол?

Johnmen (2003-04-15 09:41:00) [9]
футер - Footer - "подвал"

>ИринаС

А как переноситься отобранная в запросе информация ?

Соловьев (2003-04-15 09:24:00) [10]
Извиняюсь, а что такое футер?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »