以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用Filler将一个表复制到另一个表顺序被重排  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38834)
--  作者：dd6b
--  发布时间：2013/8/8 11:36:00
--  [求助]用Filler将一个表复制到另一个表顺序被重排
用Filler将一个表复制到到另一个表顺序被重排，怎样保证还是原表的顺序？
[此贴子已经被作者于2013-8-8 11:36:42编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/8/8 12:01:00
--  

手工填充：

 

http://www.foxtable.com/help/topics/1533.htm

 

For Each dr1 As Row In Tables("表A").Rows
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol in DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next