%rem
受控号:RS00001
功能:
作者:
版本:1.0.0
最后更新日期:
%end rem
dim s_docc as NotesDocumentCollection
dim s_doc as NotesDocument
searchFormula$={select form="XXX" }
Set s_docc=XXX_db.Search( searchFormula$,Nothing,0)
If s_docc.Count>0 Then
Set s_doc=s_docc.GetFirstDocument
While Not s_doc Is Nothing
'循环内写入代码
Set s_doc=s_docc.GetNextDocument(s_doc)
Wend
end if
'如果在多处使用 销毁代码要放到最后
set s_docc=nothing
set s_doc=nothing