UnprocessedDocuments解决方法

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


[其他解释]
希望对你有所帮助这个替换值 的方法 你可以借鉴下！