当前位置: 代码迷 >> Lotus >> UnprocessedDocuments解决方法
  详细解决方案

UnprocessedDocuments解决方法

热度:159   发布时间:2016-05-05 06:55:36.0
UnprocessedDocuments
代理放在ACTION里:

Dim dc As NotesDocumentCollection 
Set dc = db.UnprocessedDocuments

Set Doc = DC.GetFirstDocument

原意时要把视图中勾中的文档循环拷贝到其他数据库里。

为什么没有勾选的文档也跟着拷贝了?

高手赐教下,万分感谢!(C/S)


------最佳解决方案--------------------
该回复于2011-12-02 09:09:51被版主删除
------其他解决方案--------------------
在线等。谢谢!
------其他解决方案--------------------
明白了!自己结贴。
------其他解决方案--------------------
啊!!! 不能给自己结贴 晕......谁来 直接送分了。
------其他解决方案--------------------
该回复于2011-12-02 07:25:19被版主删除
------其他解决方案--------------------
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim tempdoc As NotesDocument

Set db = Session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set tempdoc = dc.GetFirstDocument
 While Not Tempdoc Is Nothing
     IF tempdoc.HasItem("域值")then
        IF tempdoc.YUZHI(0) = "值"then
              tempdoc.yuzhi = ""
            Call tempdoc.save(true,false,false)
     end if 
end if
  set tempdoc = dc.getnextdocument(tempdoc) 
wend


------其他解决方案--------------------
希望对你有所帮助这个替换值 的方法 你可以借鉴下!
  相关解决方案