QQClient的ReceivedMessage事件
'==============以下代码为同步数据=====================
Dim msg As String = e.Message
If msg.StartsWith("U#") Then '表示修改了某行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
Dim dr As DataRow = 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
DataTables(pts(1)).AppendLoad("[_Identify] = " & pts(2)) '追载新增加的行.
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
'==============以上代码为同步数据=====================
'==============以下代码为审核====================
Dim pts() As String = e.Message.Split("|")
If pts.Length = 4 AndAlso pts(0) = "+@" '如果是申请审核消息
fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) '将主健?单号和制单人 合成为一个字符串存储在集合中
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息
PopMessage("送货单" & pts(1) & "已由" & pts(2) & "审核通过!")
Dim dr As DataRow = DataTables("送货单").Find("单号 = '" & pts(1) & "'")
If dr IsNot Nothing Then
dr.Load
End If
End If
'==============以上代码为审核=====================
QQClient的ReceivedMessage事件 这两段代码有很多地方冲突 又不能只要一个代码 因为有的需要审核，有的不需要。试过把第1段的pts改为pts1，代码会没有反应。请问要怎样解决这个情况。谢谢
加好友 
发短信
Post By：2016/3/2 23:29:00 [只看该作者]
