主题：为什么没有弹出提示审核的消息框呢

此主题相关图片如下：~qb$z49p5c)s5dl38x@}g.png

此主题相关图片如下：b6rs3d%s60e2j1nzwici4p.png

  我们可以在上述代码的基础上改进一下，例如希望有新的订单需要批准时，能弹出一个窗口提醒一下经理。

为此可以将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 User.Group = "经理" And dr.DataTable.Name = "订单"  Then
    If dr IsNot Nothing AndAlso dr.IsNull("审核") = False AndAlso dr.IsNull("批准") Then
        PopMessage("有新的订单需要审核!","提示",PopIconEnum.Infomation)
    End If
End If