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

1楼

baoxyang 发表于：2009/5/18 16:53:00

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

2楼

don 发表于：2009/5/18 17:06:00

参考ADDNEW

3楼

baoxyang 发表于：2009/5/18 17:10:00

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

4楼

don 发表于：2009/5/18 17:17:00

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

5楼

狐狸爸爸 发表于：2009/5/18 17:17:00

多少列都一样：

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

6楼

baoxyang 发表于：2009/5/18 17:34:00

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

7楼

听雪落的声音 发表于：2009/5/26 10:07:00

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

8楼

听雪落的声音 发表于：2009/5/26 10:09:00

以下是引用听雪落的声音在2009-5-26 10:07:00的发言：

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

⊙﹏⊙b汗，少了个AS。

9楼

mr725 发表于：2009/5/26 10:51:00

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

[此贴子已经被作者于2009-5-26 10:51:26编辑过]

10楼

听雪落的声音 发表于：2009/5/26 11:05:00

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

共15 条记录, 每页显示 10 条, 页签: [1] [2]