读书人

UnprocessedDocuments解决方法

发布时间: 2012-12-17 09:31:41 作者: rapoo

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


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

读书人网 >行业软件

热点推荐