IEaxGrid.ApplySelectionToFilterRange

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

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Pivot: IPivot;
    Grid: IEaxGrid;
    Filter: IPivotFilter;
    Range: IPivotFilterRange;
    TabRange: ITabRange;
    Selection: ITabSelection;
    TabView: ITabView;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчет
    Express := MB.ItemById("EXPRESS_REPORT").Edit As IEaxAnalyzer;
    // Получим настройки отображения данных таблицы
    Pivot := Express.Pivot;
    // Получим параметры фильтрации
    Filter := Pivot.Filter;
    // Зададим условие фильтрации - больше числа
    Filter.ConditionType := PivotFilterType.GA;
    // Зададим число
    Filter.ConditionValueA := 15;
    // Зададим фильтрацию по строкам
    Filter.Elements := PivotFilterElements.Rows;
    // Получим диапазон фильтрации
    Range := Filter.Range;
    // Получим таблицу данных отчета
    Grid := Express.Grid;
    // Зададим диапазон выделенной области
    TabRange := Grid.TabSheet.Cells(1, 1, 5, 5);
    // Получим представление электронной таблицы
    TabView := Grid.TabSheet.View;
    // Получим текущую отметку в таблице
    Selection := TabView.Selection;
    // Добавим диапазон в отметку таблицы
    Selection.AddRange(TabRange);
    // Передадим отметку таблицы в диапазон фильтрации
    Grid.ApplySelectionToFilterRange(Range);
    // Зададим область, для которой применится фильтрация
    Filter.Area := PivotFilterArea.Range;
    // Применим фильтрацию к таблице с данными
    Filter.UseCondition := True;
    // Сохраним изменения
    (Express As IMetabaseObject).Save;
End Sub UserProc;