ITabSearchResult.Next

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

Sub UserProc;
Var
    MB: IMetabase;
    Rep: IPrxReport;
    Tab: ITabSheet;
    CellSearch: ITabCellSearch;
    Result: ITabSearchResult;
    s: String;
    i: Integer;
Begin
    MB:=MetabaseClass.Active;
    Rep:=MB.ItemById("Reg_rep").Bind As IPrxReport;
    Tab:=Rep.ActiveSheet.Table;
    CellSearch:=Tab.CreateCellSearch;
    CellSearch.Text:="123";
    Result:=CellSearch.Execute;
    If Result<>Null Then
        i:=i+1;
        s:=s+Result.Range.Address+" ";
        Repeat
        If Result.Next Then
            i:=i+1;
            s:=s+Result.Range.Address+" ";
        Else
            Break
        End If;
        Until False;
        Else
        s:="Значение не найдено"
    End If;
End Sub UserProc;