主题：[求助]自定义消息提醒窗口

求大神帮诊断一下：

我想在项目中实现自动弹窗提醒，没能成功。

 

1. 工作流程(借款申请)的保存事件代码：      
Dim dr As DataRow = DataTables("A01_用户信息").Find("Group = '会计'")
Dim bdnm As String = dr("Name")
Dim msg As String = "+@|" & _UserName & "|" & r("借款ID") & "|" & "临时借款申请" & "|ys@"
QQClient.Send(bdnm,msg)

2. OpenQQ客户端ReceivedMessage事件代码：

Dim msg As String = e.Message
If msg.StartsWith("+@|") Then
    Dim pts() As String  = msg.Split("|")
    fhs.Add(pts(4) & "|" & pts(1) & "|" & pts(2) & "|" & pts(3))
End If

 

3. 项目事件SystemIdle事件代码：

If fhs.Count > 0 AndAlso Forms("S10401-流程通知").Opened = False Then
    Dim fh As String = fhs(0)
    If fh.StartsWith("ys@|") Then
        Dim pts() As String = fh.Split("|")
        fhs.RemoveAt(0)
        With Forms("S10401-流程通知")
            .Open()
            .Controls("002-消息内容").Text = pts(1) & "新增了ID为:" & pts(2) & "的" & pts(3) & ",请您进行预审!"
        End With

    End If

End If

 另外在全局代码中我已定义了Public变量：

 

Public fhs As New List(of String)

什么也没弹出来

 

 

有OpenQQ,并且已经启用了。项目已经在使用，其他一切功能都正常，这外功能我是想用来升级的。

我的流水ID等都是通过OpenQQ的功能来实现网络条件下的复杂编码的。

Dim dr As DataRow = DataTables("A01_用户信息").Find("Group = '会计'")
Dim bdnm As String = dr("Name")
 
Output.Show(bdnm)
Output.Show(_UserName)

 

执行结果：

高  敏

素  问

已经这样修改了，还是没能成功：

Dim dr As DataRow = DataTables("A01_用户信息").Find("Group = '会计'")
Dim bdnm As String = dr("部门“） & “.” &  dr("Name")
Dim msg As String = "+@|" & _UserName & "|" & r("借款ID") & "|" & "临时借款申请" & "|ys@"
QQClient.Send(bdnm,msg)

请再帮想一下办法！

以下这个是项目的用户登录代码：

    QQClient.ServerIP = "xxx.xx.xxx.xxx"
    QQClient.ServerPort = 52177
    QQClient.UserName = dr("部门") & "." & dr("Name")
    QQClient.Password = dr("Password")
    If QQClient.Start() = True '如果登录成功
        Dim msg As String =  "恭喜,OpenQQ登录成功!"
        If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
            msg = msg & QQClient.ServerMessage
        End If
        popMessage(msg,"提示",PopiconEnum.Infomation,5)
    Else '如果登录失败,显示服务器返回错误信息
        PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
    End If

能正常发消息

在命令窗口执行以下代码：

Dim dr As DataRow = DataTables("A01_用户信息").SQLFind("Group = '出纳'")
Dim bdnm = dr("部门") & "." & dr("Name")
Dim msg As String = "胡彤,收到消息请回答!"
QQClient.Send(bdnm,msg)

结果报错:

System.NullReferenceException:未将对象引用设置到对象的实例。
在UserCode.Tese()