填充数据的时候可否不按照顺序填充？
下面的代码中。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编辑过]
加好友 
发短信
Post By：2014/8/17 23:01:00 [只看该作者]
