你可以将NotesSession,NotesDatabase定义在全局变量中,这样对他们就只需要赋值一次,在其他很多地方就可以直接调用了.比如,可以在表单全局对象(Globals)的Declarations事件中申明两个变量
dim session as notessession
dim db as notesdatabase
然后,在表单的queryopen事件中对变量session,db进行赋值,
Set session = New NotesSession
set db = session.currentdatabase
那么,在表单及表单内部对象的所有事件中均可以直接调用session,db