Hi! all
В представлении доки отсортированы по определенному полю
Set vCalView = web.database.GetView("(ThreadsCat)") ''Вью со всеми категориями

Забираю доки в коллекшон
category = web.document.Categories(0) '' имя категории в меню
Set vDocCollection = vCalView.GetAllDocumentsByKey(category, True)
далее
'Loop all table and display entries.
Set vDoc = vDocCollection.GetFirstDocument
Do
... вывод table ...

Сответственно GetAllDocumentsByKey сортирует доки по своему, не так как было в представе.

Как бы сделать коллекшон без нарушения сортировки? Другой метод? Папку? хм...

 

Идите прямо по представлению.

Set doc = view.GetFirstDocument()
Do Until doc.Category(0)=category Or doc Is Nothing
Set doc=view.GetNextDocument(doc)
Loop

If Not doc Is Nothing And doc.category(0)=category Then
Do Until doc.category(0)<>category Or doc Is Nothing
' обработка
Set doc=view.GetNextDocument(doc)
Loop
End If

Это, конечно довольно медленно, но другого пути сохранить сортировку я не знаю.

 

NetWood
может попробуйте поработаь с NotesViewEntryCollection

This class provides you mainly with a collection of documents in a view-sorted order.

 

Морфеич прав, +1 за NotesViewEntryCollection

 

Ок! Сенкую всем.