这是客户端的ReceivedMessage中
Dim msg As String = e.Message
Dim dr As DataRow
If msg.StartsWith("U#") Then '表示修改了某行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
dr = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
If dr IsNot Nothing Then
dr.Load() '重新加载此行
End If
End If
ElseIf msg.StartsWith("A#") Then '表示增加了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
Dim drs As List(of DataRow) = DataTables(pts(1)).AppendLoad("[_Identify] = " & pts(2)) '追载新增加的行.
If drs.Count > 0 Then
dr = drs(0)
End If
End If
ElseIf msg.StartsWith("D#") Then '表示删除了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
DataTables(pts(1)).RemoveFor("[_Identify] = " & pts(2)) '移除行
End If
End If
If _UserGroup = "销售经理" And dr.DataTable.Name = "审批测试" Then
If dr IsNot Nothing AndAlso dr.IsNull("销售审批人") = False AndAlso dr.IsNull("财务审批人") Then
PopMessage("有新的订单需要审核!","提示",PopIconEnum.Infomation)
End If
End If
我知道只有用户在线才能接收消息，但我在同一台电脑测试！！！
需要把PopMessage("有新的订单需要审核!","提示",PopIconEnum.Infomation)改为PopMessage("有新的订单需要审核!","提示",PopIconEnum.Infomation,True)吗？
用户1修改数据需要审核时，用户2在登录时候不提示任何消息！
加好友 
发短信
Post By：2017/11/4 17:00:00 [显示全部帖子]
