IPivotHeader.StairsHierarchy

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

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Pivot: IPivot;
    LeftHeader: IPivotHeader;
    TableHeader: IPivotTableHeader;
    Dim: IPivotDimension;
    i, Count: Integer;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчёт
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим настройки отображения таблицы
    Pivot := Express.Pivot;
    // Получим коллекцию измерений, расположенных по строкам
    LeftHeader := Pivot.LeftHeader;
    // Выведем наименования полученных измерений
    Count := LeftHeader.DimCount;
    For i := 0 To Count-1 Do
        Dim := LeftHeader.PivotDim(i);
        Debug.WriteLine("Измерение: " + Dim.DimInstance.Name);
    End For;
    // Включим использование ступенчатой иерархии
    LeftHeader.StairsHierarchy := True;
    // Получим свойства заголовка строк таблицы
    TableHeader := Pivot.ObtainTable.LeftHeader;
    // Проверим, является ли элемент с координатой (1,0) ступенькой иерархии
    If Not TableHeader.IsStairElement(1, 0) Then
        Debug.WriteLine
        ("Элемент «" + TableHeader.ElementName(1, 0) + "» заголовка строк таблицы не является ступенькой иерархии") Else
        Debug.WriteLine
        ("Элемент заголовка строк таблицы является ступенькой иерархии");
    End If; 
    // Сохраним изменения
    (Express As IMetabaseObject).Save;
End Sub UserProc;