代理为什么的得不到域值(b/s)?
xjbx
博客专家认证 2003-04-03 11:06:42 情况只这样的:A数据库的一个表单b,其中有个文本域c(可编辑),缺省值为:0,在打开b表单时(b/s)显示值为0,或打开这个表单运行代理,也可以得到当前这个表单(b)的文本域c的值为0。但,我在一个视图里去显示这个域值却没有值。
如果在另一个数据库d运行一个代理去得到A库b表单的文本域c的值也是为空?
我不知道这个是什么原因?
代理代码如下:
Sub Initialize
Dim d,a As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
dim dbname as string
dim msg2 as string
dbname="a.nsf"
Set d = session.CurrentDatabase
Set a = New NotesDatabase( db.server, dbname )
Set collection =a.AllDocuments
Set doc =collection.GetFirstDocument()
While Not(doc Is Nothing)
If doc.form(0)="b" Then
msg2=doc.c(0)
Msgbox msg2
End If
Set doc= collection.GetNextDocument(doc)
Wend
End Sub
显示msg2的值都为空?