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

 呃，上下排列有什么大问题？填充完以后，你可以随意的移动行的位置。

 你这样做的意义是什么？

 回复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