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

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