Не работает Getdocumentbykey

[rm2005]

Добрый день! Необходимо по щелчку на кнопке в справочнике пользователей (ФИО, Лотус-имя) найти человека залогинившегося в базу.
Сделал вид по Лотус именам ("ByNotesName"). В OnClick написал обработчик:

Sub Click(Source As Button)
Dim Baza As New NotesDatabase(CurrentServerName, CurrentDataBasePath+"Справочник.nsf")
Dim CurrentSession As New NotesSession
Dim view As NotesView
Dim doc As NotesDocument

Set view=Baza.GetView("ByNotesName")

Set doc=view.GetDocumentByKey(CurrentSession.UserName)
If doc Is Nothing Then Messagebox ("Не найдено")

End Sub

Почему-то никогда не находит. Можь че не так делаю?

 

[morpheus]

Для: rm2005
Читаем хэлп и видим

For the getDocumentByKey method to work using a key, you must have at least one column sorted for every key in the vector.

что значит... Вам необходимо сортированная колонка(по который вы ищете - ключ ), желательно первая в Вашем представлении

Да и CurrentSession.UserName - посмотрите что уВас записано там... а что записано в справочнике...
ведь CurrentSession.UserName вернёт чтото типа "CN=Stew Malone/OU=Editorial/O=Acme." а Вам надо выкавырять тока CN

 

[rm2005]

Блин! Точно! Не стояло свойство Ascending. Спасибо огромное, а то уже 3 дня убил.