A
aks
Здравствуйте, господа!
Помогите разобраться. В окошке, которое выдаёт PickListCollection нет документов, хотя документы в представлении имеются. В чём может быть причина? Может какие-нибудь насройки самого представления? Прошу прощения за, может быть, некорректный вопрос - я совсем недавно занимаюсь Лотусом. Спасибо.
Помогите разобраться. В окошке, которое выдаёт PickListCollection нет документов, хотя документы в представлении имеются. В чём может быть причина? Может какие-нибудь насройки самого представления? Прошу прощения за, может быть, некорректный вопрос - я совсем недавно занимаюсь Лотусом. Спасибо.
Код:
Sub Click(Source As Button)
Dim Workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim Db As NotesDatabase
Dim View As NotesView
Dim DocCollection As NotesDocumentCollection
Set db = session.GetDatabase("ido_nv", "\Nepi_cde\Reports.nsf", )
If db Is Nothing Then
Print "Ошибка открытия базы <Отчётность>"
Exit Sub
Else
Print "Открыта база <Отчётность>"+" (" db.FilePath+")"
End If
Set View = db.GetView("Все документы")
If View Is Nothing Then
Print "Ошибка открытия представления"
Exit Sub
Else
Print "Открыто представление <Все документы>"
End If
Set DocCollection = Workspace.PickListCollection(PICKLIST_CUSTOM, False, db.Server, db.FilePath, view.Name, "*", "*","*")
End Sub