Фильтрация данных в рабочей книге

Для выполнения примера предполагается наличие в репозитории рабочей книги с идентификатором «OBJ123», для рядов которой будет применен фильтр на скрытие пустых значений. Добавьте ссылки на системные сборки:

• Express;

• Laner;

• Metabase (только для Fore);

Пример Fore

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    WB: ILaner;
    Filter: ILanerFilter;
Begin
    MB := MetabaseClass.Active;
    //Открываем рабочую книгу на редактирование
    MObj := MB.ItemById("OBJ123").Edit;
    Exp := MObj As IEaxAnalyzer;
    WB := Exp.Laner;
    Filter := WB.Filter;
    //Устанавливаем фильтр для скрытия пустых значений
    Filter.SuppressEmpty := True;
    //Будут скрываться ячейки как с концов, так и внутри данных ряда
    Filter.SuppressEmptyArea := LnSuppressEmptyArea.FullSerie;
    MObj.Save;
End Sub UserProc;

После выполнения примера для рядов рабочей книги будет применен фильтр на скрытие пустых значений. Будут скрыты пустые значения по краям и внутри ряда.

Пример Fore.NET

Указанная процедура является точкой входа Main в модуле Program .NET-сборки. В данный модуль должны быть импортированы сборки Express, Metabase, Laner из системной сборки Prognoz.Platform.Interop.

Public Shared Sub Main(Params: StartParams);

Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Exp: IEaxAnalyzer;
    WB: ILaner;
    Filter: ILanerFilter;
Begin
    MB := Params.Metabase;
    //Открываем рабочую книгу на редактирование
    MObj := MB.ItemById["OBJ123"].Edit();
    Exp := MObj As IEaxAnalyzer;
    WB := Exp.Laner;
    Filter := WB.Filter;
    //Устанавливаем фильтр для скрытия пустых значений
    Filter.SuppressEmpty := True;
    //Будут скрываться ячейки как с концов, так и внутри данных ряда
    Filter.SuppressEmptyArea := LnSuppressEmptyArea.lseaFullSerie;
    MObj.Save();
End Sub;

Результат выполнения примера аналогичен результату примера на Fore.

См. также:

Примеры | ILaner | ILanerFilter | LnSuppressEmptyArea