自写的代理程序，大家指点，共同进步！！！

wintellzbh

表单中有reader多值域，内容可以是:"管理员组"；“测试员组”；“dirl”；“wintellzbh”....也就是可以是群组和个人用户。现在的目的是吧群组里的用户逐一读出来，原来的个人用户不变，然后写到表单域“Unread”多值域中。
Sub Initialize
        On Error Goto Errorhandler
        Dim ws As New notesuiworkspace
        Dim uidoc As notesuidocument
        Dim doc As notesdocument
        Set uidoc = ws.currentdocument
        Set doc = uidoc.document
       
        Dim s As New notessession
        Dim db As notesdatabase
        Dim vw As notesview
        Dim namedoc As notesdocument       
        Set db = s.getdatabase("","names.nsf")
        Set vw = db.getview("Group")
        Set namedoc = vw.getfirstdocument
       
        Dim U As Variant
        Dim temp As Variant
        Dim i As Integer
        U = doc.Reader
        i = 0
        While U(i)<>""
                &#39;判断U(i)是否为群组
                While (Not namedoc Is Nothing)
                        If U(i) = namedoc.listname(0) Then
                                temp = Arrayappend(namedoc.members,temp)
                                U(i) = ""
                        End If
                        Set namedoc = vw.getnextdocument(namedoc)
                Wend
                Set namedoc = vw.getfirstdocument
                i = i+1
        Wend
        U = Fulltrim(U)
        U = Arrayappend(U,temp)
        doc.UnRead = ArrayUnique(U)
        Call doc.save(True,False)
        Exit Sub
Errorhandler:
        Print "Error" & Str$(Err) ":"& Error$
End Sub
&#39;ArrayUnique()函数用于去除重复的用户（有可能原来用户在群组中）
Function ArrayUnique(Array As Variant)
        Dim i As Integer
        Dim j As Integer
        Dim max As Integer
        If Isarray(Array) Then
                max = Ubound(Array)       
                For i = 0 To max
                        For j=i+1 To max
                                If array(i) = array(j) Then
                                        array(j) = ""
                                End If
                        Next
                Next
                ArrayUnique = Fulltrim( array )
        Else
                ArrayUnique = array
        End If
End Function

请大家看看，我是新手，也许错误很低级，别笑我哦。^_^
还没调试成功：出现的错误是Error 217:Error creating product object。

wintellzbh

补充：代理运行在webQuerySave中，目的是对用户新建文档进行操作。刚才试了，好像是在定义时出的错。具体还不知道。

wintellzbh

程序前部分应该写成（因为我在web上使用代理），开始的错误就解决了

Dim s As New notessession
Dim db As notesdatabase
Dim vw As notesview
Dim doc As notesdocument
Dim namedoc As notesdocument
Set doc = s.documentcontext
Set db = s.getdatabase("","names.nsf")
Set vw = db.getview("群组")
Set namedoc = vw.getfirstdocument

现在出现subscript out of range的错误。不知道为何？

有那位大侠知道怎么知道是第几行出的错啊！

wintellzbh

虽然没有人告诉我那里出错，但是我还是从浏览的人数感觉到大家对我的支持。经过早上一个小时的努力，终于把程序调试好了，其中收获不少。现在贴出来给大家共享，如果大家有什么意见看法，请告诉我。^_^
Sub Initialize
        Dim s As New notessession
        Dim db As notesdatabase
        Dim vw As notesview
        Dim doc As notesdocument
        Dim namedoc As notesdocument
        Set doc = s.documentcontext
        Set db = s.getdatabase("","names.nsf")
        Set vw = db.getview("群组")
        Set namedoc = vw.getfirstdocument
       
        Dim U As Variant
        Dim temp As Variant
        Dim i As Integer
        Dim members As Variant
        Dim max As Variant
        U = doc.Reader
        max = Ubound(U)
        &#39;对reader域中的值进行搜索，是群组的拆开。
        For i = 0 To max
                While (Not namedoc Is Nothing)
                        If U(i) = namedoc.listname(0) Then
                                members = namedoc.members
                                temp = Arrayappend(members,temp)
                                U(i) = ""
                        End If
                        Set namedoc = vw.getnextdocument(namedoc)
                Wend
                Set namedoc = vw.getfirstdocument
        Next
        U = Fulltrim(U)
        U = Arrayappend(U,temp)
        doc.UnRead = U
        doc.UnRead = ArrayUnique(U)
        Call doc.save(True,False)
End Sub

子函数不变。subscript out of range是数组溢出，一开始的程序判断U(i)是，循环到最后一个数就溢出了，后来的做法是用Ubound算出个数再循环就没有问题了。如果domino的web调试能够给我们提供一个工具就不用这么辛苦的调试了！希望IBM能在以后的产品中提供。

neil_1

个人感觉(写的有点复杂)：
1.判断reader域中是否包含群组
2.是群组的就用个函数返回所有的人员，用Forall xx In XXX