主题：请教排序

笨办法，用临时表过度一下再将排序后的结果写入表中。

如果只是一、两列进行这样的永久排序，还是可以的，我的想法是排序后重新写入，当然数据量很大的话保存较耗时。

如：

Dim dt As Table = Tables("表A")
For i As integer = 0 to dt.rows.count -1
   dt.Rows(i)("第九列") = dt.Rows(i)("第一列")
   dt.Rows(i)("第十列") = dt.Rows(i)("第二列")
Next
Dim drs As New List(Of DataRow)
drs = DataTables("表A").Select("","第九列,第十列")
For i As integer = 0 to dt.rows.count -1
   dt.Rows(i)("第一列") = drs(i)("第九列")
   dt.Rows(i)("第二列") = drs(i)("第十列")
Next
For i As integer = 0 to dt.rows.count -1
   dt.Rows(i)("第九列") = Nothing
   dt.Rows(i)("第十列") = Nothing
Next


上面的代码玩玩而已，别当真。