用NotesDatabase.search方法来统计符合条件的文档个数

SubClick(SourceAsButton) DimsessionAsNewNotesSession DimdbAsNotesDatabase DimcollectionAsNotesDocumentCollection '要搜索的文档的起始时间 DimdateTimeAsNewNotesDateTime("01/01/96") Setdb=session.CurrentDatabase 'Search的第一个参数是用公式语言表达的搜索条件 Setcollection=db.Search("Form='qj'",date