функция FTSearchSorted

2024-04-03T07:28:49Z

Ради интереса всё же разобрался, как работает FTSearchSorted - функция представления.
numDocs& = notesView .FTSearchSorted ()
на самой вьюхе не будет ниче происходить.. доки не исчезнут....
numDocs& возвращает количество доков, но от неё толку нет.
для навигации по отсортированным документам нужно использовать GetFirstDocument и т.п.

Sub Click(Source As Button)
    Dim session As New NotesSession, ws As New NotesUIWorkspace, db As NotesDatabase, doc As NotesDocument
    Dim i As Integer
    On Error Goto ErrH
    
    Set db = ws.CurrentDatabase.Database    
    
    Dim view As NotesView
    Set view = db.GetView("arc_SVEA_opis")
    Set doc= view.GetFirstDocument
    i=0
    While Not doc  Is Nothing
        i=i+1
        Set doc = view.GetNextDocument (doc )
    Wend
    Print Cstr (i)
    
    numDocs& = view.FTSearchSorted("01-07", 1)
    Set doc= view.GetFirstDocument
    i=0
    While Not doc  Is Nothing
        i=i+1
        Set doc = view.GetNextDocument (doc )
    Wend
    Print Cstr (i)
    
    
    Exit Sub
ErrH:
    Print "Ошибка: " & Error(Err) & " в строке " & Erl
End Sub

Первый раз выдаст все доки, а второй - только с "01-07" текстом.

Форум компьютерной помощи — функция FTSearchSorted

функция FTSearchSorted