- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于顺序的问题重新写了一下， (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55487)
-- 发布时间：2014/8/17 23:01:00
-- 关于顺序的问题重新写了一下，
填充数据的时候可否不按照顺序填充？
下面的代码中。dr1 的数据 添加到 dr2 ,dr3,dr4....等等时，顺序都是一样的（都是按照dr1原来数据的排序方式导入的。
有没有办法可以让导入后的 数据都不相同，或者按照随机方式排序，
假如要dr1 的数据 1， 2， 3， 4， 5
导入到dr2 后顺序变成 2，3, 5, 4 ，1
导入到dr2 后顺序变成 5，4， 3 ，2， 1
导入到dr3 后顺序变成 1， 3， 5 ，2 ，4
可以实现么？如果可以麻烦详细的给指点一下奥~~~
Dim Cols1() As String = {"costPrice"}（假如这里有5行数据 按顺序分别是 1.2.3.4.5）
Dim Cols2() As String = {"costPrice"} 结果添加到这个表中 数据的顺序变成 5.4.3.2.1
Dim Cols3() As String = {"costPrice"} 结果添加到这个表中 数据的顺序变成 1.3.5.2.4
Dim Cols4() As String = {"costPrice"}
Dim Cols5() As String = {"costPrice"}
此主题相关图片如下：??.png
For Each dr1 As DataRow In DataTables("jinzhengbe").Select("[id] is not Null")
Dim dr2 As DataRow = DataTables("cai").AddNew()
Dim dr3 As DataRow = DataTables("tianma").AddNew()
Dim dr4 As DataRow = DataTables("new").AddNew()
Dim dr5 As DataRow = DataTables("hongfu").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
dr3(Cols3(i)) = dr1(Cols1(i))
dr4(Cols4(i)) = dr1(Cols1(i))
dr5(Cols5(i)) = dr1(Cols1(i))
Next
Next
[此贴子已经被作者于2014-8-17 23:01:17编辑过]
-- 发布时间：2014/8/17 23:04:00
--
呃，上下排列有什么大问题？填充完以后，你可以随意的移动行的位置。
你这样做的意义是什么？
-- 发布时间：2014/8/18 1:02:00
--
要复制很多副本给客户，是网站的商品，虽然都是一样的内容 如果排序顺序有差别的话，最起码还显得有点差别，要不然所有的网站打开的内容都一样的话，看着总是不好的。，
-- 发布时间：2014/8/18 9:17:00
--
回复3楼，那你可以在填充完毕以后，对表再一次排序。修改_Sortkey列的值即可。
Dim drs As Object = DataTables("表A").DataRows
For i As Integer = 1 To drs.Count \'洗牌测次数
Dim rnum1 As Integer = Rand.Next(drs.Count)
Dim rnum2 As Integer = Rand.Next(drs.Count)
Dim temp As String = drs(rnum1)("_Sortkey")
drs(rnum1)("_Sortkey") = drs(rnum2)("_Sortkey")
drs(rnum2)("_Sortkey") = temp
Next
-- 发布时间：2014/8/18 20:22:00
--
就是按照随机的顺序重新排序，是吧？
-- 发布时间：2014/8/18 20:25:00
--
嗯嗯。