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

我看不懂你7楼的问题。

老黑的意思很简单：

自从GetUniqueValues 更改后可以直接在该“工具”下设置排序参数，

于是老黑“得寸进尺”想让老大将所有“工具”的排序参数都设置掉！免得还要生成后“很麻烦”，“很纠结”的再手工编码排序。

嗯，理解一点了

7楼的代码看不懂?  老大 你是在装糊涂.

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

你到底要作什么呢？

 

    不好意思  老大 我理解错误.不用主键列排序也是可以的  我一直以为 要跟来源表一模一样的顺序 必须要用主键列呢.其实用其他列也可以的.   我以前一直用主键列排序的. 所以造成我概念错误. 

狐爸说：虽然有些工具不能设置排序参数，但是还是有默认排序参数的！

老黑说：这部分照样“不买账”！

 

比如交叉统计默认能按打横的分组升序排序，但实际不能，是降序；

比如分组统计默认能按分组列排序，但做不到按“主键列”分组：举例:

客户列有4条记录，分别是caab  分组统计外加手工排序，也只能生成abc或者cba，但无法生成cab（按主键列排序，虽然这个说话很勉强）

 

 

老朱，你要按照现实的顺序来填充的话，只需将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()