以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]临时表从0行开始复制表a,代码错在哪里啊?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22250)

--  作者:yangrou
--  发布时间:2012/8/7 11:28:00
--  [求助]临时表从0行开始复制表a,代码错在哪里啊?
For Each dr1 As DataRow In DataTables("表A") .DataRows      
    Dim dr2 As DataRow = DataTables("临时表").datarows(0) 
    For Each dc As DataCol In DataTables("表A").DataCols
       
        dr2(dc.Name) = dr1(dc.name)
        dr2 = DataTables("临时表").AddNew()
    Next
    
Next

--  作者:yangrou
--  发布时间:2012/8/7 11:40:00
--  
看附件
--  作者:yangrou
--  发布时间:2012/8/7 11:40:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20120807114111.jpg
图片点击可在新窗口打开查看

--  作者:yangrou
--  发布时间:2012/8/7 12:07:00
--  
错了啊,
你把临时表和表A写反了位置。
还有,临时表建立时,自动会加10行,按上面的代码(更正表名位置后),临时表实际是从datarow(10)开始复制的啊,我要从(0)开始复制的。

--  作者:狐狸爸爸
--  发布时间:2012/8/7 14:20:00
--  

顺序错了,你可以自己调过来,原来已经有行了,你可以用代码删除,这些能成为问题吗?

 

DataTables("临时表").Deletefor("")

For Each dr1 As DataRow In DataTables("表A").Select("")
    Dim dr2 As DataRow = DataTables("临时表").AddNew()
    For Each dc As DataCol In DataTables("临时表").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next

 

多看帮助,你不掌握基本的A、B、C,别人给你再多的帮助,也没有意义。

看帮助一定要按顺序,头一两遍可以不求甚解,第三遍开始要将每个例子实际操作演练一遍,不明白的就上论坛求助。三遍之后才开始做系统,遇到问题在帮助找答案,找不到的在论坛提问。
此外一定要先掌握《使用指南》,然后再看《开发指南》