主题：[求助]OpenQQ

Dim msg As String = e.Message
Dim pts() As String
If msg.StartsWith("U#") Then '表示修改了某行
    pts = 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 '表示增加了行
    pts = msg.Split("#")
    If pts.Length = 3 Then
        DataTables(pts(1)).AppendLoad("[_Identify] = " &  pts(2)) '追载新增加的行.
    End  If
ElseIf msg.StartsWith("D#") Then '表示删除了行
    pts = msg.Split("#")
    If pts.Length = 3 Then
        DataTables(pts(1)).RemoveFor("[_Identify] = "  & pts(2)) '移除行
    End  If
End  If
'==============以上代码为同步数据=====================

'==============以下代码为审核====================
pts  = 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