- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 排序后的列不能成功复制？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32298)
-- 发布时间：2013/4/28 19:09:00
-- 排序后的列不能成功复制？
复制出来还是排序前的顺序。
-- 发布时间：2013/4/28 19:19:00
--
没有发现你说的情况。
-- 发布时间：2013/4/28 19:24:00
--
Tables("单项统计表复制").Sort = "社区统计 DESC"
Dim Cols1() As String = {"社区","社区统计"}
Dim Cols2() As String = {"社区","社区统计"}
For Each dr1 As DataRow In DataTables("单项统计表").DataRows
Dim dr2 As DataRow = DataTables("单项统计表排序").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
这个代码复制出来 还是原来的单项统计表排序前的顺序。
-- 发布时间：2013/4/28 23:55:00
--
楼主Tables,DataTables基本概念都分不清,忙着设计,服了
-- 发布时间：2013/4/29 6:46:00
--
-- 发布时间：2013/4/29 8:03:00
--
For Each dr1 As Row In Tables("单项统计表复制").Rows
Dim dr2 As Row = Tables("单项统计表排序").AddNew()
谢楼上~ 这样是可以的