主题：关于排序我想讨论下

自己编码，怎样排序都可以：

 

http://www.foxtable.com/help/topics/1533.htm

 

 

至于统计表，直接设置统计表的sort属性就可以啊

1、速度一样的哦，记得stopdraw就行

2、不明白这个问题是什么意思

呵呵，我还是无法理解你的问题，你最好用简单的例子说明

计算机排序的结果就是这样，你可以编码重新调整列的顺序。

我看不懂你7楼的问题。

嗯，理解一点了

是看不懂的，这个表没有主键，你却要根据主键排序，这不会钻牛角尖吗？

你到底要作什么呢？

 

老朱，你要按照现实的顺序来填充的话，只需将DataTable改为Table，例如原来是：

 

For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100")
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol in DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next

改为：

 

For Each dr1 As Row In Tables("表A").Select("[金额] > 100")
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol in DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next

 

至于按照规定顺序调整列位置，是很简单的，例如：

 

 

Dim nms As String() = {"第十列","第九列","第七列","第八列","第六列","第五列","第一列","第三列","第四列","第二列"} '定义顺序
Tables("表A").StopRedraw()
For i As Integer = 0 To nms.Length -1
    Tables("表A").Cols(nms(i)).move(i)
Next
Tables("表A").ResumeRedraw()

应该是：
 
For Each dr1 As Row In Tables("表A").Rows
    if dr1("金额") > 100 Then