• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Не видно представления

  • Автор темы aks
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

aks

Здравствуйте, господа!

Помогите разобраться. В окошке, которое выдаёт 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
 
L

LuMee

А если вместо view.Name вписать просто "Все документы"?
 
L

LuMee

Хм, интересно... Так могу еще предположить:
1. имя представления: я обычно всем представлениям даю алиасы на латинице и без пробелов (для пущей верности), и в коде обращаюсь к ним именно по этим алиасам
2. если представление содержит категории или ответы, можно попробовать убрать галочку, что-то вроде "сворачивать все категории при открытии" или как-то так.. правда, эта фишка глючит лишь в single-category embedded view, но все же
Интереса ради можно попробовать пооткрывать таким образом другие представления - будут видны доки или нет.
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
<!--QuoteBegin-aks+29:07:2006, 20:48 -->
<span class="vbquote">(aks @ 29:07:2006, 20:48 )</span><!--QuoteEBegin-->Set DocCollection = Workspace.PickListCollection(PICKLIST_CUSTOM, False, db.Server, db.FilePath, view.Name, "*", "*","*")
[snapback]41308" rel="nofollow" target="_blank[/snapback]​
[/quote]
Что за последняя звездочка? У тебя есть такая категория?
Короче, удали этот параметр.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!