Dim ses as New NotesSession
Dim db as NotesDatabase
Dim dc as NotesDocumentCollection
Dim doc as NotesDocument
Set db = ses.CurrentDatabase
Set dc = db.Unprocesseddocuments
Set doc = dc.GetFirstDocument
While not doc is Nothing
Call doc.ComputeWithForm( False, False )
Call doc.Save( True, True, True )
Set doc = dc.GetNextDocument(dc)
Wend
1 回答
在设计器中向表单添加字段后,它不会自动添加到字段存在之前创建的文档中 .
要进行计算并将项目添加到您必须打开的文档并保存所有文档或编写代理以刷新现有文档 .
此代理可以是 Formula agent ,在 target
none
上运行 .公式:
@Command([ToolsRefreshSelectedDocs])
或@Command([ToolsRefreshAllDocs])
或者它可能是在 target
All selected documents
上运行的 LotusScript- Agent .码:
执行此操作后,该项目将在视图列中可用 .