N
nvyush
qwerty
Попробуйте поиграться с агентом вида:
Представление перед этим должно быть открыто, т.е. должна быть создана приватная версия! Использовать на свой страх и риск.
Попробуйте поиграться с агентом вида:
Код:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
If session.NotesVersion < 359 Then
Set db = session.GetDatabase("", "desktop6.ndk")
Else
Set db = session.GetDatabase("", "desktop8.ndk")
End If
Set view = db.GetView(АЛИАС_ПРЕДСТАВЛЕНИЯ)
view.SelectionFormula = ФОРМУЛА_ОТБОРА
End Sub