代理放在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
------其他解决方案--------------------
希望对你有所帮助这个替换值 的方法 你可以借鉴下!