Вытащить из View сразу несколько документов ?!?

[Guest]

Hallo everybody
Хочу вытащить из View, ряд документов, которые связаны по признаку ContractRef:

Dim OtherDoc As NotesDocument
Set OtherDoc = view.GetDocumentByKey(cDoc.GetItemValue("ContractRef")(0), True)

Я так понимаю, Lotus заносит в переменную OtherDoc, первый документ, который является в группе. А можно ли как то занести в переменную OtherDoc все документы, сгруппированные по признаку ContractRef?

 

[Sandr]

Dim OtherDocs As NotesDocumentCollection
Dim OtherDoc As NotesDocument
Set OtherDocs = view.GetAllDocumentsByKey(cDoc.GetItemValue("ContractRef")(0), True) 'получили коллекцию доков по этому признаку
'если далее нужно обработать эти доки то перебираем их
set OtherDoc = OtherDocs.getFirstDocument
while not OtherDoc is nothing
... делаем тут что-то с ним

set OtherDoc = OtherDocs.getNextDocument(OtherDoc)
wend

 

[Guest]

Dim OtherDocs As NotesDocumentCollection
Dim OtherDoc As NotesDocument
Set OtherDocs = view.GetAllDocumentsByKey(cDoc.GetItemValue("ContractRef")(0), True) 'получили коллекцию доков по этому признаку
'если далее нужно обработать эти доки то перебираем их
set OtherDoc = OtherDocs.getFirstDocument
while not OtherDoc is nothing
... делаем тут что-то с ним

set OtherDoc = OtherDocs.getNextDocument(OtherDoc)
wend

Thanks, thanks