Question

我有一个可以使用视图中的操作进行初始化的代理。

我在代理商处的代码：

Dim sesija As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim workspace As New NotesUIWorkspace
Set db = sesija.CurrentDatabase

Set collection = workspace.Picklistcollection(PICKLIST_CUSTOM, True, "", _
  "Prakse2015/Uzdevums_Maris", "kategorijas", "Virsraksts", _
  "Apakšvirsraksts", "")

我知道很少有这些线是没有必要的。它现在做什么它显示视图中的所有文档。我想知道的是，有哪种方法可以使用picklistcollection显示所选文档？

Answer 1

您可以使用要在Picklistcollection中显示的文件夹。只需创建一个与视图设计相同的文件夹即可。在您的代码中，首先使用以下代码清空文件夹：

Set folder = db.GetView( "NameOfPicklistFolder" )
Call folder.AllEntries.RemoveAllFromFolder ( "NameOfPicklistFolder" )

然后将所选文件放在文件夹中：

Set dc = db.UnprocessedDocuments
Call dc.PutAllInFolder( "NameOfPicklistFolder" )

并使用此文件夹而不是视图：

Set collection = workspace.Picklistcollection(PICKLIST_CUSTOM, True, "", _
  "Prakse2015/Uzdevums_Maris", "NameOfPicklistFolder", "Virsraksts", _
  "Apakšvirsraksts", "")

只要只有一个用户同时使用此功能（在练习的情况下没有问题），这将有效。如果有多个用户，则每个用户需要一个文件夹（例如，在首次使用文件夹中使用共享专用文件名为SPOFU），否则第二个用户将更新文件夹内容，第一个用户将看到第二个用户的文档用户...

使用picklistcollection显示所选文档

1 个答案: