我想把订单表A中所有已审核的行加载到另外一个表B  请问要怎么设计？

我现在想了一些代码 但是后面不知道怎么写了

datacolchanged事件

If E.DataCol.NAME="订单号" Then
    If E.DataRow.IsNULL("订单号")=False Then
        Dim drs As List(of DataRow)
        drs=DataTables("订单明细表A").Select("订单号 = \'" & e.DataRow("A") & "\' and \'审核=true\'")
        For Each dr As DataRow In drs
            Tables("表B").AddNew
            dr(e.DataCol.Name) =e.DataRow(e.DataCol.Name)
        Next
    End If
End If

If E.DataCol.NAME="订单号" Then
    If E.DataRow.IsNULL("订单号")=False Then
        Dim drs As List(of DataRow)
        drs=DataTables("订单明细表A").Select("订单号 = \'" & e.DataRow("A") & "\' and 审核=true")
        For Each dr As DataRow In drs
            dim r as row = Tables("表B").AddNew
            r(e.DataCol.Name) = dr(e.DataCol.Name)
        Next
    End If
End If

最好用简单的例子说话，别人并不清楚你这些表和字段之间的关系。

感谢老程半夜回复