Полнотекстовый Поиск В Коллекции

Sub setProjectByFind
On Error GoTo errHandler
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim view As NotesView
Dim doc As NotesDocument
Dim docSearch As NotesDocument
Dim docResult As NotesDocument
Dim docProject As NotesDocument
Dim Query As String
Dim key As String
Dim item As NotesItem
Dim i As Long
 
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Set docSearch = db.CreateDocument
start:
If Not workspace.DialogBox("dlgSearch", True, True, True, False, False,False, "Выбор проекта", docSearch, False, True, False) Then Exit Sub
If docSearch.Flag(0)="1" And Not docSearch.ViewResult(0)="Результаты поиска" And Not docSearch.ViewResult(0)="По Вашему запросу ничего не найдено" Then
Set view = db.GetView("project~unid")
Call view.Refresh
key = docSearch.ViewResult(0)
Set docProject = view.GetDocumentByKey(key, True)
 
Dim p As New cProject
Call p.getInfo(docProject)
Call p.setInfo(doc)
Call uidoc.Refresh()
 
Call uidoc.RefreshHideFormulas
Exit Sub
End If
Query = "([form]=project OR [form]=subProject) AND NOT [d]=1"
ForAll KeyString In docSearch.KeyString
Query = Query+" AND [title]=*"  +KeyString+"*"
End ForAll
Set collection = db.FTSearch(Query, 300)
If collection.Count = 0 Then
docSearch.Result = "По Вашему запросу ничего не найдено"
Else
i = 0
Set docResult = collection.GetFirstDocument
While Not docResult Is Nothyng
If i = 0 Then
docSearch.Result = docResult.title(0)+"|"+docResult.UNID(0)
Else
Set item = docSearch.GetFirstItem("Result")
item.AppendToTextList(docResult.title(0)+"|"+docResult.UNID(0))
End If
i=i+1
Set docResult = collection.GetNextDocument(docResult)
Wend
docSearch.Flag ="1"
docSearch.ViewResult = StrRight(docSearch.Result(0),"|")
End If
GoTo start
finally:
If eh.isError Then MessageBox eh.errorMessage
Exit Sub
errHandler:
Call eh.getError()
Resume finally
End Sub