Поговорим об ADO

[Roman N. Krivov]

Цитата:

Сообщение от Gustav

На чистом листе Excel не воспроизводится. Где-то у вас форматирование всё же выполняется, наверное...

Точно не воспроизводится.
А меня в шаблоне в ячейке указан формат "Число". И если передавать как строку - всё работает. Но уже второй день бьюсь над этим. Пришлось передавать поля типа "Строка"

[Gustav]

Я обычно adDouble не использую, а использую для adCurrency.
Конечно, на файл шаблона бы взглянуть... Хотя бы на тот его фрагмент, куда пишется adDouble.
Можно выложить?

[Roman N. Krivov]

Цитата:

Сообщение от Gustav

Я обычно adDouble не использую, а использую для adCurrency.
Конечно, на файл шаблона бы взглянуть... Хотя бы на тот его фрагмент, куда пишется adDouble.
Можно выложить?

Выложил результат работы и шаблон

[Gustav]

Роман, у меня два вопроса:

1. Рекордсет создаете с учетом всех колонок, попадающих в область бланка? Т.е. у вас должно быть много фиктивных и немного содержательных - т.е. получается 16 содержательных где-то из 85 всего.
2. Как вставляете новые строки? Сразу всё необходимое кол-во перед исходной 19-й строкой? Потом дополнительно еще формат этой исходной распространяете на добавленные?

[Roman N. Krivov]

Цитата:

Сообщение от Gustav

Роман, у меня два вопроса:

1. Рекордсет создаете с учетом всех колонок, попадающих в область бланка? Т.е. у вас должно быть много фиктивных и немного содержательных - т.е. получается 16 содержательных где-то из 85 всего.
2. Как вставляете новые строки? Сразу всё необходимое кол-во перед исходной 19-й строкой? Потом дополнительно еще формат этой исходной распространяете на добавленные?

1. Рекордсет имеет поля под все столбцы, т.е. 16 значемых и 69 "резервных"
2. Строки добавляются скопом с помощью следующей функции:

   protected void insertRows(int _fromRow,
                   int _toRow,
                   int _fromWorkSheet = 1,
                   int _offset        = 1,
                   int _numOfCopies   = 1,
                   int _toWorkSheet   = 1)
   {
       COM         comRows,
                   comWorkSheet,
                   comRow, comRowTarget, selection;
       COMVariant  comRowVariant, selVariant;
       ;
   
       if (! _numOfCopies)
           return;
   
       if (! comDocument)
           throw error(strFmt("@DIS6401", "Excel.Application"));
   
       comRow = this.findRange(strFmt("%1:%2", _fromRow, _toRow));
       comRow.copy();
   
       comRowTarget = this.findRange(strFmt("%1:%2", _toRow+ _offset, _toRow+ _offset + _numOfCopies - 1));
       comRowTarget.select();
       comRowTarget.insert();
   
       comWorkSheet  = this.getWorkSheet(_toWorkSheet);
       comRows = comWorkSheet.cells();
       comRows = COM::createFromVariant(comRows.item(1));
       comRows.select();
       comExcelApplication.cutCopyMode(false);
   }

При копировании строк нарушается формат ячеек. Самое интересное, он нарушается только при копировании с помощью COM, так как написав тоже самое в VBA всё отлично

[Gustav]

Цитата:

Сообщение от Roman N. Krivov

При копировании строк нарушается формат ячеек. Самое интересное, он нарушается только при копировании с помощью COM, так как написав тоже самое в VBA всё отлично

Имеется в виду, что разъединяются объединенные ячейки? Тоже замечал такую вещь. Это бывает и в самом Excel, когда, например, вручную копируешь 1-ю строку в строки 1:5 - ячейки разваливаются и в копиях, и в оригинале, но если копировать 1-ю в 2:5 (казалось бы, конечное состояние должно быть одинаково при любом из этих способов - ан нет!) , то во всех пяти строках имеем нормальное объединение ячеек, как в оригинальной 1-й строке.

И как боретесь? В коде что-то отрабатывает или вручную? На картинке-то у вас вроде нормальный вид объединенных ячеек...

[Roman N. Krivov]

Цитата:

Сообщение от Gustav

И как боретесь? В коде что-то отрабатывает или вручную? На картинке-то у вас вроде нормальный вид объединенных ячеек...

Всё очень просто: у нас таблица начинается в строк 19, следовательно встаем на эту строку, копируем её ADORecordSet.RecordCount() -1 раз и вставляем данные. Т.е.:

. . .
    wkss    = comDocument.Worksheets();
    wks     = wkss.Item(cvActiveWks);
    rng     = wks.Range(_bookmark); // _bookmark = "19:19"
    this.insertRows(rng.row(), rng.row() + 1, rstAxa.RecordCount() - 1);
    cell    = rng.Offset(0,0);
    cell.CopyFromRecordset(rstAxa);
. . .

protected void insertRows(int _fromRow,
                          int _toRow,
                          int _numOfCopies)
{
    COM         comRows,
                comWorkSheet,
                comRow, comRowTarget, selection;
    COMVariant  comRowVariant, selVariant;
    ;

    if (! _numOfCopies)
        return;

    if (! comDocument)
        throw error(strFmt("@DIS6401", "Excel.Application"));

    comRow = this.findRange(strFmt("%1:%2", _fromRow, _fromRow));
    comRow.copy();

    comRowTarget = this.findRange(strFmt("%1:%2", _toRow, _toRow + _numOfCopies - 1));
    comRowTarget.select();
    comRowTarget.insert(/*#xlShiftDown*/);

    comWorkSheet  = this.getWorkSheet(cvActiveWks);
    comRows = comWorkSheet.cells();
    comRows = COM::createFromVariant(comRows.item(1));
    comRows.select();
    comExcelApplication.cutCopyMode(false);
}

При этом сохраняется объединение ячеек. Но вот проблема с форматированием остаётся.