以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助!不同表中行复制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2823)

--  作者:baoxyang
--  发布时间:2009/5/18 16:53:00
--  求助!不同表中行复制
从表A中当前行内容复制到表B中,代码如何写?多谢!
--  作者:don
--  发布时间:2009/5/18 17:06:00
--  
参考ADDNEW

--  作者:baoxyang
--  发布时间:2009/5/18 17:10:00
--  
我说是,有无简便的方法,因字段较多,用addnew较为繁锁点。


--  作者:don
--  发布时间:2009/5/18 17:17:00
--  
简便代码当然有,不过还是一步一脚印吧.
--  作者:狐狸爸爸
--  发布时间: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

Next


--  作者:baoxyang
--  发布时间:2009/5/18 17:34:00
--  
谢了!收到!功夫不深呀。
--  作者:听雪落的声音
--  发布时间:2009/5/26 10:07:00
--  

看不懂,代码中的dc是什么意思?


--  作者:听雪落的声音
--  发布时间:2009/5/26 10:09:00
--  
以下是引用听雪落的声音在2009-5-26 10:07:00的发言:

看不懂,代码中的dc是什么意思?

⊙﹏⊙b汗,少了个AS。


--  作者:mr725
--  发布时间:2009/5/26 10:51:00
--  
5楼狐爸的代码,在复制行不多时很好用,但要是超过数百行后,你就得耐心了~  数千行时,你可以泡杯茶~
相信不会同时复制那么多的行吧~
[此贴子已经被作者于2009-5-26 10:51:26编辑过]

--  作者:听雪落的声音
--  发布时间:2009/5/26 11:05:00
--  

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