Перенос футера EhGrid в Excel

← →
ИринаС (2003-04-15 07:45) [0]

Ребята, подскажите plz как сделать чтоб футер EhGrid переносился в Excel вместе с отобранной в запросе информацией

← →
Соловьев (2003-04-15 09:24) [1]

Извиняюсь, а что такое футер?

← →
Johnmen (2003-04-15 09:41) [2]

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

>ИринаС

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

← →
Соловьев (2003-04-15 09:46) [3]

ИринаС (15.04.03 07:45)

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

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

← →
ИринаС (2003-04-15 12:50) [4]

А прикол в том. после формирования запроса в Gride отображается выбранная информация и отображается строка в Footer, а при переносе всего этого в Excel в нем строка Footer"a не отображается

← →
Vick (2003-04-15 12:51) [5]

А как в Excel переносишь???

← →
ИринаС (2003-04-15 12:53) [6]

Создаю вариантный массив

← →
Vick (2003-04-15 12:57) [7]

У него есть стандартные функции

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

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

← →
ИринаС (2003-04-15 13:00) [8]

Переношу таким образом

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;

← →
Johnmen (2003-04-15 13:25) [9]

>ИринаС

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

← →
Alexandr (2003-04-15 14:09) [10]

а вот это не подойдет?

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

Перенос футера EhGrid в Excel Найти похожие ветки