主题：求助！不同表中行复制

从表A中当前行内容复制到表B中，代码如何写？多谢！

参考ADDNEW

我说是，有无简便的方法，因字段较多，用addnew较为繁锁点。

简便代码当然有,不过还是一步一脚印吧.

多少列都一样：

For Each dr1 As DataRow In DataTables("表A").DataRows
    Dim dr2 As DataRow = DataTables("表B").Addnew()
    For Each dc DataCol in DataTables("表B").DataCols
       dr2(dc.name) = dr1(dc.name)
    Next

Next

谢了！收到！功夫不深呀。

看不懂，代码中的dc是什么意思？

⊙﹏⊙b汗，少了个AS。

5楼狐爸的代码，在复制行不多时很好用，但要是超过数百行后，你就得耐心了～  数千行时，你可以泡杯茶～
相信不会同时复制那么多的行吧～

怎么在里面加上判断条件？
表A中第一列不为空