ITableFilterItem.ValuesNumber

Синтаксис Fore

ValuesNumber: Integer;

Синтаксис Fore.NET

ValuesNumber: Integer;

Описание

Свойство ValuesNumber определяет количество уникальных значений, доступных для выбора.

Комментарии

Значение по умолчанию 10000.

Пример Fore

Для выполнения примера предполагается наличие регламентного отчета с идентификатором «RO». Добавьте ссылки на следующие системные сборки: Metabase, Forms, Report, Tab.

Sub UserProc;
Var
    mb: IMetabase;
    mObj: IMetabaseObject;
    Rep: IPrxReport;
    Tab: ITabSheet;
    Sheet: IPrxTable;
    TRange: ITabRange;
    AutoFilter: ITabAutoFilter;
Begin
    mb := MetabaseClass.Active;
    mObj := mb.ItemById("RO").Edit;
    Rep := MObj As IPrxReport;
    Sheet := Rep.Sheets.Item(0) As IPrxTable;
    Tab := Sheet.TabSheet;
    TRange := Tab.View.Selection.Range;
    AutoFilter := Tab.View.AutoFilter;
    // Включение автофильтра
    AutoFilter.Range := TRange;
    AutoFilter.Enabled := True;
    tab.View.AutoFilter.Item(0).ValuesNumber := 100;
    mObj.Save;
End Sub UserProc;

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Forms;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    mObj: IMetabaseObject;
    Rep: IPrxReport;
    Tab: ITabSheet;
    Sheet: IPrxTable;
    TRange: ITabRange;
    AutoFilter: ITabAutoFilter;
Begin
    mb := Params.Metabase;
    mObj := mb.ItemById["RO"].Edit();
    Rep := MObj As IPrxReport;
    Sheet := Rep.Sheets.Item[0] As IPrxTable;
    Tab := Sheet.TabSheet;
    TRange := Tab.View.Selection.Range;
    AutoFilter := Tab.View.AutoFilter;
    // Включение автофильтра
    AutoFilter.Range := TRange;
    AutoFilter.Enabled := True;
    tab.View.AutoFilter.Item[0].ValuesNumber := 100;
    mObj.Save();
End Sub;

См. также:

ITableFilterItem