IPivotDimensions.Count

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

Sub UserProc;
Var
    MB: IMetabase;
    Expr: IEaxAnalyzer;
    Pivot: IPivot;
    Dims: IPivotDimensions;
    Dim: IPivotDimension;
    DimInst: IDimInstance;
    i, j: Integer;
Begin
    MB := MetabaseClass.Active;
    Expr := MB.ItemById("EXPRESS_REPORT").Bind As IEaxAnalyzer;
    Pivot := Expr.Pivot;
    Dims := Pivot.Dimensions;
    For i := 0 To Dims.Count - 1 Do
        Dim := Dims.Item(i);
        DimInst := Dim .DimInstance;
        Debug.WriteLine(DimInst.Name);
        Debug.Indent;
        For j := 0 To DimInst.Elements.Count - 1 Do
            Debug.WriteLine(DimInst.Elements.Name(i));
        End For;
        Debug.Unindent;
    End For;
End Sub UserProc;