主题：如何引用其他数据表的行

我想把订单表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

感谢老程半夜回复