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

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

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

能否正常发送信息？如果连发信息都不行，说明你openQQ没有搭建成功。

 

http://www.foxtable.com/webhelp/scr/2990.htm

 

能正常发消息

 

如果能正常发送信息，那么，在ReceivedMessage事件，加入msgbox，能否弹出发送过来的信息？

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

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()

 回复16楼，没有找到group=出纳的那一行，就会报错。

能弹出来，并且出的内容正确

成功了