Mentally
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ а подскажите как грабли проскочить:
Есть Grid с Master-detail уровнем. Вывожу его в Excel:
ExportGridToExcel(p, GGl_s, True, True, True, 'xls');
with GGl_sDBTableView1.DataController do
begin
BeginUpdate;
for I := 0 to FilteredRecordCount - 1 do //Уходит в невидимость и ошибка
begin
with GGl_sDBTableView2.Clones[I].DataController do
begin
BeginUpdate;
s := '';
for j := 0 to FilteredRecordCount - 1 do
begin
if (VarToStr(Values[FilteredRecordIndex[j], GGl_sDBTableView2Name.
Index])) <> '' then
s := s + (VarToStr(Values[FilteredRecordIndex[j],
GGl_sDBTableView2Name.Index])) + ';';
end;
ExcelApplication1.Cells.Item[I + 2, 12].Value := s;
EndUpdate;
end;
end;
EndUpdate;
end;
Отрабатывает вроде нормально, но только 12-14 записей. Вернее только те, которые поместились на экране. Мож кто знает как это дело обмануть?
|
Всего записей: 2 | Зарегистр. 27-12-2013 | Отправлено: 14:14 27-12-2013 | Исправлено: Mentally, 14:31 27-12-2013 |
|
