工作心得网

工作心得精彩分享
代码积累持续学习

从Notes库里查询数据

%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

我们的缺点麻烦您能提出,谢谢支持!

关于站长