主题：[求助]openqq相关

Dim pts() As String  = e.Message.Split("|")

If pts.Length = 4 AndAlso pts(0) = "+@" '如果是申请审核消息

    fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) '将主健?单号和制单人合成为一个字符串存储在集合中

ElseIf pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息

    PopMessage("文件" & pts(1) & "经" & pts(2) & "主任阅示.请按阅示意见办理!") 

    Dim dr1 As DataRow = DataTables("收文处理登记表").Find("文号 = '" & pts(1) & "'")

    If dr1 IsNot Nothing Then

        dr1.Load

    End If

End If

查看按钮：

DataTables("收文处理登记表").Save() '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值.

Dim id As String = e.Form.Controls("Label2").Text

Dim dr As DataRow = DataTables("收文处理登记表").Find("[_Identify] = " & id)

If dr Is Nothing Then

    DataTables("收文处理登记表").AppendLoad("[_Identify] = " & id)

    dr =  DataTables("收文处理登记表").Find("[_Identify] = " & id)

Else

    dr.Load()

End If

If dr IsNot Nothing Then

    Dim wz As Integer = Tables("收文处理登记表").FindRow(dr)

    If wz < 0 Then '如果因为筛选导致此送货单不可见

        Tables("收文处理登记表").Filter = ""

        wz =Tables("收文处理登记表").FindRow(dr)

    End If

    If wz >= 0 Then

        Tables("收文处理登记表").Position = wz

        Forms("一把手阅文窗口").Open()

    End If

End If

e.Form.Close()

SystemIdle：

If fhs.Count > 0 AndAlso Forms("文件送审").Opened = False Then

    Dim pts() As String = fhs(0).Split("|")

    fhs.RemoveAt(0)

    With Forms("文件送审")

        .Open()

        .Controls("Label1").Text = pts(2) & "呈报新文件" & pts(1) & ",请阅示!"

        .Controls("Label2").Text = pts(0) '将发货单主健设置为Label2的标题

    End With

End If

请你看看错在哪里。

If e.User IsNot Nothing Then
    e.Success = True '允许登录
    For Each u As UserInfo In Users
        If u.Name <> e.User.Name  Then
            If u.Group > ""  Then
                e.Buddies.Add(u.Group & "." & u.Name)
            Else
                e.Buddies.Add(u.Name)
            End If
        End If
    Next
End If