主题：数据改动

可是，订单表，都是sqltable，这怎么和帮助得例子，联系起来

 我在订单明细表的beforesavedatarow事件加入代码，最后得到修改后的行，怎么以弹窗得形式传递给相关用户？
Dim r1 As Row = Tables(e.Form.Name & "_table1").Current
If r1("订单状态") = "已审核" OrElse r1("订单状态") = "部分排产" OrElse r1("订单状态") = "全部排产" OrElse r1("订单状态") = "部分配缸" OrElse r1("订单状态") = "全部配缸" OrElse r1("订单状态") = "部分入库" OrElse r1("订单状态") = "全部入库" OrElse r1("订单状态") = "部分出库" OrElse r1("订单状态") = "全部出库" Then
    Dim idx As String = "-1,"
    Dim cs() As String = {"客户", "品名大类", "品名小类","颜色","客户款号","客户订单号","成品门幅","成品克重","下单量","色号"}
    For Each r2 As Row In Tables(e.Form.Name & "_table2").Rows
        For Each dc As String In cs
            If r2(dc) <> r2.DataRow.OriginalValue(dc) Then
                idx &= r2("_Identify") & ","
                Exit For
            End If
        Next
    Next
    msgbox(idx)
    'Tables(e.Form.Name & "_table2").Filter = "_Identify in (" & idx.trim(",") & ")"
End If