主题：[求助]求大神支个招

我有表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

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