2个客户端正常登录了吗？
调试一下
msgbox(e.Message)
Dim pts() As String = e.Message.Split("|")
msgbox(pts.Length)
If pts.Length = 5 AndAlso pts(0) = "+@" Then'如果是申请审核消息
msgbox(pts(4))
If pts(4) = "销售订单" Then
fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) '将主健?单号和制单人合成为一个字符串存储在集合中
End If
ElseIf pts.Length = 4 AndAlso pts(0) = "-@" '如果是审核通过消息
msgbox(pts(3))
If pts(3) = "销售订单" Then
PopMessage("销售订单" & pts(1) & "已由" & pts(2) & "确认通过!")
Dim dr As DataRow = DataTables("销售订单").Find("订单_编号 = '" & pts(1) & "'")
If dr IsNot Nothing Then
dr.Load
End If
End If
End If
加好友 
发短信
Post By：2022/6/8 16:28:00 [只看该作者]
