IMatrixQueryResult.Item

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

Sub UserProc;
Var
    Mb: IMetabase;
    CubeDest: ICubeInstanceDestination;
    Executor: ICubeInstanceDestinationExecutor;
    Sels: IDimSelectionSet;
    Sel: IDimSelection;
    Matrix: IMatrix;
    MatFac: MatrixFactory;
    Query: IMatrixQuery;
    Filter: IMatrixQueryFilter;
    Range: IMatrixQueryFilterRange;
    Result: IMatrixQueryResult;
    Arr: IBitArray;
    i, j: Integer;
Begin
    Mb := MetabaseClass.Active;
    // Открытие куба
    CubeDest := (Mb.ItemById("OBJ8240").Open(Null) As ICubeInstance).Destinations.DefaultDestination;
    Executor := CubeDest.CreateExecutor;
    // Создание отметки
    Sels := CubeDest.CreateDimSelectionSet;
    For Each Sel In Sels Do
        Sel.SelectAll;
    End For;
    // Получение матрицы с данными куба
    Executor.PrepareExecute(Sels);
    Executor.PerformExecuteO(CubeInstanceDestinationExecutorOptions.Cached);
    Matrix := Executor.Matrix;
    // Создание запроса
    MatFac := New MatrixFactory.Create;
    Query := (MatFac As IMatrixFactory).CreateQuery(Matrix);
    // Настраиваем параметры фильтрации данных матрицы
    Filter := Query.Filter;
    // Добавление диапазона для фильтрации данных
    Range := Filter.Ranges.Add;
    Range.Min := 1;
    Range.Max := 10;
    // Отметка для фильтрации
    Filter.Selection := Sels;
    // Выполнение запроса
    Query.Execute;
    // Получаем результат запроса
    Result := Query.Result;
    Debug.WriteLine("Количество элементов в Result: " + Result.Count.ToString);
    For i := 0 To Result.Count - 1 Do
        Arr := Result.Item(i);
        Debug.WriteLine("Элементов: " + Arr.Length.ToString + ", отмеченных: " + Arr.Count.ToString);
        Debug.Indent;
        For j := 0 To Arr.Length - 1 Do
            Debug.WriteLine("Элемент " + j.ToString + (Arr.Item(j)? " отмечен" : " не отмечен"));
        End For;
        Debug.Unindent;
    End For;
End Sub UserProc;