首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 企业软件 > 行业软件 >

获取view中所有文档,该如何解决

2012-02-26 
获取view中所有文档通过什么方法可以一次性的得到view中的所有的文档,赋给notedocumentcollection? 希望得

获取view中所有文档
通过什么方法可以一次性的得到view中的所有的文档,赋给notedocumentcollection? 希望得到的是该view中的所有的文档,

[解决办法]
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentAgent
Dim view As NotesView
Set view = db.GetView("abc")
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set doc = view.GetFirstDocument
While Not (doc Is Nothing)
Call dc.AddDocument(doc)
Set doc = view.GetNextDocument(doc)
Wend
[解决办法]
[code=VBScript]
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set vc = view.AllEntries
[code]
这个NotesViewEntryCollection有个好处,就是他是排序的
[解决办法]
呵呵,feifan2002,向您请教下,Set vc = view.AllEntries这个可以读到全部的文档啊?
[解决办法]
是的,可以读到,之前有过这么一个需求,需要排序,最终就是用这个实现的

热点排行