按键 事件
Dim darf As DataRow = DataTables("教育相关汇总").Find("_Identify = '" & Vars("信息提示列") & "'")
darf("状态") = "退回"
darf.Save
Dim qqp As DataRow = DataTables("tbfcpclist").Find("username = '" & darf("发布者") & "'")
Dim qqpname As String
If qqp IsNot Nothing Then
qqpname = qqp("qqdepartment") & "." & darf("发布者")
MessageBox.Show(qqpname)
QQClient.Send(qqpname, "教育相关汇总#" & darf("_identify") & "#您发布的教育内容:" & vbcrlf & "标题:" & darf("标题") & vbcrlf & vbcrlf & Vars("人员角色") & darf(Vars("人员角色") & "姓名") & "不批准,已退回!" ,True)
End If
client ReceivedMessage 事件
Dim msg As String = e.Message
If msg.StartsWith("教育相关汇总#") Then '表示修改了某行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
' Dim dr As DataRow = DataTables(pts(0)).Find("[_Identify] = " & pts(1))
Myform.Msgbox( pts(2),"提示信息")
End If
End If
在对方离线的状态下发送， 上线后 ，不能接受信息，请教 是不是漏了什么
都在线的状态下，没问题
[此贴子已经被作者于2016/3/7 16:10:20编辑过]
加好友 
发短信
Post By：2016/3/7 16:10:00 [只看该作者]
