我有表A，表B

表A的列名和表B的列名有部分相同，我想复制表A的部分数据到表B

假设我已经把表A要复制的部分筛选出来了，

怎么写代码能够精炼点。。。。

\'For Each r As Row In Tables("表A").Rows
                \'Dim r1 As Row = Tables("表B").AddNew
                \'For Each dc1 As DataCol In DataTables("表A").DataColsfo
                    \'For Each dc As DataCol In DataTables("表B").DataCols
                        \'If dc1.name = dc.name And r.IsNull(dc1.Name) = False Then
                            \'r1(dc.Name) = r(dc.Name)
                        \'End If
                    \'Next
                \'Next
            \'Next

这样写   直接给卡死了。。。。求大神支个招。。。