＋设为首页 ＋添加到收藏夹
lotus R5,windows 2000 server c/s
要解决的问题：将数据库acl的用户在表单打开时，在一个列表框中列出。
我的代码如下：
全局变量：
Dim u As String
Dim uidoc As notesuidocument
表单的postopen:
Sub Postopen(Source As Notesuidocument)
Set uidoc = Source
Call show
End Sub
show的代码：
Sub show
Dim s As New notessession
Dim db As notesdatabase
Dim acl As notesacl
Dim entry As notesaclentry
Set db = s.currentdatabase
Set acl = db.acl
Set entry = acl.getfirstentry
While Not entry Is Nothing
Messagebox entry.name
u = u & ";" & entry.name
Set entry = acl.getnextentry(entry)
Wend
Messagebox u
Call uidoc.document.replaceitemvalue("role",u)
End Sub
现在的问题是，在表单打开时，可以看到变量u已经将用户列表取出，可是在列表框中却没有显示出来；将列表框改成文本域则可以显示，请问这是为什么呢？
因为列表框不允许直接赋列表选值。
请role设为多值文本框，另建一个新列表框域，列表值为公式：role,并设置为刷新文档时刷新选项。在SHOW代码后增加，call uidoc.refresh
