Dim msg As String = p & "项目付款" & "|编号:" & sjtb("编号") & "|项目名称:" & sjtb("项目名称") & "#" & sjtb("_Identify")
代码出错，也不会弹窗和留言，求大神帮忙
此主题相关图片如下：360截图20180328123517906.jpg
完整代码
Dim msg As String = p & "项目付款" & "|编号:" & sjtb("编号") & "|项目名称:" & sjtb("项目名称") & "#" & sjtb("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
'-------------------------------给对方弹窗和留言---------------------------------------
QQClient.SendChatMessage("综合科.周泽顺","{!}项目付款|编号:" & sjtb("编号") & "|项目名称:" & sjtb("项目名称") & "|领款人:" & sjtb("领款人"))
加好友 
发短信
Post By：2018/3/28 12:37:00 [只看该作者]
