关于顺序的问题重新写了一下， - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

填充数据的时候可否不按照顺序填充？

下面的代码中。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))

[此贴子已经被作者于2014-8-17 23:01:17编辑过]

主题：关于顺序的问题重新写了一下，