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

[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);
}

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

[Roman N. Krivov]

Первый эксперимент
Суть эксперимента
Взял шаблон, добавил в него 32 строки, установил форматы ячеек и убрал из года добавление новый строк. Запустил формирование отчёта для 7строк.

Результат
В ячейках вместо чисел стоит дата, например: 03.09.1903, вместо 1342,56

Второй эксперимент

Суть эксперимента
Запустил формирование отчета без шаблона.

Результат
В ячейках вместо чисел стоит дата, например: 03.09.1903, вместо 1342,56

[Gustav]

Цитата:

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

. . .
    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);
. . .

Тэк-с! А замените-ка:

    cell    = rng.Offset(0,0); // сейчас это целая строка 19
 
    cell    = rng.Resize(1,1); // а станет одиночная ячейка A19

Не полегчает ли?

[Roman N. Krivov]

Цитата:

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

Тэк-с! А замените-ка:

    cell    = rng.Offset(0,0); // сейчас это целая строка 19
 
    cell    = rng.Resize(1,1); // а станет одиночная ячейка A19

Не полегчает ли?

УРА !!!! ЗА-РА-БО-ТА-ЛО !!!!

[Gustav]

Цитата:

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

УРА !!!! ЗА-РА-БО-ТА-ЛО !!!!

Ох, ну, славно! Хотя по идее должно было работать и с полной строкой 19 (это я так... чисто эвристически делал предположение).

Всё-таки не совсем понятно, почему даже на пустом Excel происходило... Как-то у вас дата, похоже, крепко хваталась со второй колонки и не "отпускалась" до конца строки. Напоминает поведение типа anytype, когда он принимает тип первого присваивания...

А покажите цикл заполнения рекордсета? (на радостях)

[Roman N. Krivov]

Цитата:

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

Ох, ну, славно! Хотя по идее должно было работать и с полной строкой 19 (это я так... чисто эвристически делал предположение).

Я тоже думал что должно работать, однако ж не работает.

Цитата:

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

Всё-таки не совсем понятно, почему даже на пустом Excel происходило... Как-то у вас дата, похоже, крепко хваталась со второй колонки и не "отпускалась" до конца строки. Напоминает поведение типа anytype, когда он принимает тип первого присваивания...

А покажите цикл заполнения рекордсета? (на радостях)

    . . .     
    rstAxa.AddNew();
    for(i=1; i<=arrFields.lastIndex(); i++)
    {
        cv  = this.getValueVariant(conpeek(con, i));
        fld = flds.Item(i-1);
        fld.Value(cv);
    }
    rstAxa.Update();
    . . .

protected COMVariant getValueVariant(anytype _value)
{
    COMVariant ret;
    ;
    switch(typeof(_value))
    {
        case Types::Date :
            ret = COMVariant::createFromDateAndTime(_value, 0);
            break;
        case Types::Real :
            ret = COMVariant::createFromReal(_value);
            break;
        case Types::Integer :
            ret = COMVariant::createFromInt( _value);
            break;
        case Types::String :
        case Types::RString :
        case Types::VarString :
            ret = COMVariant::createFromStr( _value);
            break;
        default :
            callStack2infolog();
            throw error(strfmt(@"%1(): Не знаю, как преобразовать значение из типа %2 в %3",
                                funcname(), typeof(_value), classstr(COMVariant)));
    }
    return ret;
}