IPivotDimension.Levels

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Pivot: IPivot;
    Dim: IPivotDimension;
    Levels: IPivotDimensionLevels;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчет
    Express := MB.ItemById("EXPRESS").Bind As IEaxAnalyzer;
    // Получим настройки отображения таблицы данных отчета
    Pivot := Express.Pivot;
    // Получим измерение из коллекции
    Dim := Pivot.Dimensions.Item(0);
    // Получим коллекцию уровней измерения и выведем количество в окно консоли
    Levels := Dim.Levels;
    Debug.WriteLine("Количество уровней измерения = " + Levels.Count.ToString);
End Sub UserProc;