Функция для сортировки документов в коллекции.

[Sergey_st85]

Объект - Notesdocumentcollection.

Как бы вы не пихали в него док-ты - они сортируются по непонятному признаку (возможно, по юниду), или вообще вразнобой. Как рассортировать такую коллекцию по определенному полю?

[ViV]

А если использовать NotesViewEntryCollection? тогда будет порядок представления документов в виде.

[Sergey_st85]

Мне не все док-ты нужны, а только выделенные пользвоателем. Я не знаю, как через ентри-коллекшн это сделать.

[Sergey_st85]

Есть такая шняга, но у меня несоответствие типов для
'   Set sortDocs = New SortCollection(doccol, "surname", True   )

http://www.notesnet.ru/nn/notesnet.nsf/note/0D195AE50D36BA64C3256E41003EC3FD

[nadya]

посмотри сюда, возможно поможет
http://www.notesnet.ru/nn/notesnet.nsf/note/0D195AE50D36BA64C3256E41003EC3FD
только сообщи потом о результатах))

[Sergey_st85]

Работает, как часы.

Входные параметры - коллекция док-тов, поле, ключ "является ли поле формулой". Что за формула - не разобрался, поэтому false.

Помещаем класс в Declaration.

В Option автоматически пропишется: Option Base 0.

В коде я записал так:

Dim key(0) As String
   key(0)="surname"
   Dim sortDocs As Variant
   Set sortDocs = New SortCollection( cur_doccol, key , False   )
   Set cur_doccol = sortDocs.Result