ITabRange.Delete

Синтаксис Fore

Delete(Value: TabDeleteShiftDirection);

Синтаксис Fore.NET

Delete(Value: Prognoz.Platform.Interop.Tab.TabDeleteShiftDirection);

Параметры

Value. Способ удаления диапазона ячеек.

Описание

Метод Delete удаляет заданный диапазон ячеек.

Комментарии

Для вставки нужного диапазона ячеек используйте метод ITabRange.Insert.

Пример Fore

Для выполнения примера в репозитории необходимо наличие регламентного отчета с идентификатором «REGULAR_REPORT_ITABSHEET_INSERT_DELETE». Регламентный отчет должен содержать заполненный любыми значениями диапазон ячеек «A0:I12».

Для выполнения примера подключите системные сборки: Metabase, Report, Tab.

Sub userproc;
Var
    mb: IMetaBase;
    regrep: IPrxReport;
    sheet: IPrxSheet;
    table: IPrxTable;
    range: ITabSheet;
    diap1: ITabRange;
    diap2: ITabRange;
Begin
    // Открываем регламентный отчет для редактирования
    mb := MetabaseClass.Active;
    regrep := mb.ItemById("REGULAR_REPORT_ITABSHEET_INSERT_DELETE").Edit As IPrxReport;
    // Получаем диапазон ячеек (A11:I11)
    sheet := regrep.Activesheet;
    table := sheet As IPrxTable;
    range := table.TabSheet;
    diap1 := range.ParseRange("A11:I11");
    // Удаляем диапазон ячеек со сдвигом ячеек вверх
    diap1.Delete(TabDeleteShiftDirection.ShiftUp);
    // Вставляем диапазон ячеек в заданный диапазон со сдвигом ячеек вправо
    diap2 := range.ParseRange("A4:B4");
    diap2.Insert(TabInsertShiftDirection.ShiftToRight);
    // Сохраняем изменения
    (regrep As IMetabaseObject).Save;
End Sub userproc;

После выполнения примера диапазон ячеек «A12:A11» сместится на одну строчку вверх и диапазон «A5:I5» сместится на две ячейки вправо.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetaBase;
    regrep: IPrxReport;
    sheet: IPrxSheet;
    table: IPrxTable;
    range: ITabSheet;
    diap1: ITabRange;
    diap2: ITabRange;
Begin
    // Открываем регламентный отчет для редактирования
    mb := Params.Metabase;
    regrep := mb.ItemById["REGULAR_REPORT_ITABSHEET_INSERT_DELETE"].Edit() As IPrxReport;
    // Получаем диапазон ячеек (A11:I11)
    sheet := regrep.Activesheet;
    table := sheet As IPrxTable;
    range := table.TabSheet;
    diap1 := range.ParseRange("A11:I11");
    // Удаляем диапазон ячеек со сдвигом ячеек вверх
    diap1.Delete(TabDeleteShiftDirection.tdsdShiftUp);
    // Вставляем диапазон ячеек в заданный диапазон со сдвигом ячеек вправо
    diap2 := range.ParseRange("A4:B4");
    diap2.Insert(TabInsertShiftDirection.tisdShiftToRight);
    // Сохраняем изменения
    (regrep As IMetabaseObject).Save();
End Sub;

См. также:

ITabRange