ILanerSeries.AddEmptyGroup

Синтаксис

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

Параметры

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

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

Описание

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

Пример

Для выполнения примера в репозитории предполагается наличие рабочей книги с идентификатором «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;

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

См. также:

ILanerSeries