ITabSheet.CreateColumnSearch

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

Sub UserProc;
Var
    MB: IMetabase;
    Rep: IPrxReport;
    Tab: ITabSheet;
    ColumnSearch: ITabColumnSearch;
    Result: ITabSearchResult;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Rep := MB.ItemById("Reg_rep").Bind As IPrxReport;
    Tab := (Rep.ActiveSheet As IPrxTable).TabSheet;
    ColumnSearch := Tab.CreateColumnSearch;
    ColumnSearch.AddCondition(0, "1", False, True);
    ColumnSearch.AddCondition(1, "10", False, True);
    Result := ColumnSearch.Execute;
    If Result <> Null Then
        i := Result.CurrentColumn;
    End If;
End Sub UserProc;