educat
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно добавить строки в cxSpreadSheetBook на форме ReportsForm. На форме есть кнопка
с кодом
ActiveSheet.InsertCells(ActiveSheet.SelectionRect,msAllCol);
всё прекрасно добавляется
Но когда я вызываю ReportsForm (она MDIChild) из другой формы то это не работает.
ReportsForm:=TReportsForm.Create(Application);
//Загружаем файл шаблона, где есть шапка и низ, посередине нужно вставить данные
//из таблицы
ReportsForm.cxSpreadSheetBook1.LoadFromFile('reports\sample.xls');
with ReportsForm.cxSpreadSheetBook1 do begin
ShowHeaders:=false;
Protected:=true;
ShowGrid:=false;
BeginUpdate;
ReportsForm.SetCellText(1,2, dsConst.FieldValues['ORG_SNAME']);
ReportsForm.SetCellText(0,4, datetostr(DatePr.date));
CurRow := 10;
...
While NOT dsTable.EOF do begin
ReportsForm.SetCellText(1,CurRow, FieldByName('N').AsString);
ReportsForm.SetCellText(2,CurRow, FieldByName('FIO').AsString);
//**************
ActiveSheet.InsertCells(ActiveSheet.SelectionRect,msAllCol);
//это не работает, данные вставляются поверх других в шаблоне
//**************
CurRow := CurRow +1;
Next;
end;
end;
//В общем подскажите кто знает как это сделать чтобы добавлять строки, данные то я в ячейки заношу, а строки ну никак и все тут.
Заранее благодарен, за любую помошь |
