- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]临时表从0行开始复制表a，代码错在哪里啊？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22250)
-- 发布时间：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
-- 发布时间：2012/8/7 11:40:00
--
看附件
-- 发布时间：2012/8/7 11:40:00
--
此主题相关图片如下：qq截图20120807114111.jpg
看-- 发布时间：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，别人给你再多的帮助，也没有意义。
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。三遍之后才开始做系统，遇到问题在帮助找答案，找不到的在论坛提问。
此外一定要先掌握《使用指南》，然后再看《开发指南》