ILanerSeries.AddEmptyGroup

Синтаксис Fore

AddEmptyGroup(SerieName: String; [Index: Integer = -1]): ILanerGroupSerie;

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

AddEmptyGroup(SerieName: string; Index: integer): Prognoz.Platform.Interop.Laner.ILanerGroupSerie;

Параметры

SerieName. Наименование добавляемой группы;

Index. Индекс позиции, в которую необходимо добавить группу.

Описание

Метод AddEmptyGroup добавляет пустую группу рядов.

Пример Fore

Для выполнения примера в репозитории предполагается наличие рабочей книги с идентификатором «WORKBOOK_SERIES», содержащей несколько рядов.

Добавьте ссылки на системные сборки: Express, Laner, Metabase.

Sub UserProc;
Var
    mb: IMetabase;
    WbkObj: IMetabaseObject;
    EaxAn: IEaxAnalyzer;
    Laner: ILaner;
    Series: ILanerSeries;
    Group: ILanerGroupSerie;
    Serie: ILanerSerie;
Begin
    // Получаем рабочую книгу
    mb := MetabaseClass.Active;
    WbkObj := mb.ItemById("WORKBOOK_SERIES").Edit;
    EaxAn := WbkObj As IEaxAnalyzer;
    Laner := EaxAn.Laner;
    // Получаем ряды рабочей книги
    Series := Laner.Series;
    // Создаем новую группу
    Group := Series.AddEmptyGroup("Новая группа", 1);
    // Получаем последний ряд в рабочей книге
    Serie := Series.Item(Series.Count - 1);
    // Перемещаем полученный ряд в созданную группу
    Serie.MoveToParent(Group, 0);
    // Сохраняем изменения
    WbkObj.Save;
End Sub UserProc;

В результате выполнения примера после первого ряда в рабочей книге будет создана группа, в которую будет перемещён последний ряд.

Пример Fore.NET

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

Imports  Prognoz.Platform.Interop.Express;
Imports  Prognoz.Platform.Interop.Laner;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    WbkObj: IMetabaseObject;
    EaxAn: IEaxAnalyzer;
    Laner: ILaner;
    Series: ILanerSeries;
    Group: ILanerGroupSerie;
    Serie: ILanerSerie;
Begin
    // Получаем рабочую книгу
    mb := Params.Metabase;
    WbkObj := mb.ItemById["WORKBOOK_SERIES"].Edit();
    EaxAn := WbkObj As IEaxAnalyzer;
    Laner := EaxAn.Laner;
    // Получаем ряды рабочей книги
    Series := Laner.Series;
    // Создаем новую группу
    Group := Series.AddEmptyGroup("Новая группа", 1);
    // Получаем последний ряд в рабочей книге
    Serie := Series.Item[Series.Count - 1];
    // Перемещаем полученный ряд в созданную группу
    Serie.MoveToParent(Group, 0);
    // Сохраняем изменения
    WbkObj.Save();
End Sub;

См. также:

ILanerSeries