主题：汇总排序

那都是同一个分公司，顺序怎么会变呢，怎么才能顺序不变呢

附件是汇总前后对比图片，本来想上传测试数据的，但是不知道为什么上传不了压缩包

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 microsoft excel 工作表.xlsx

这是图片

在默认情况下，Subtotal方法会根据分组列进行排序，然后再生成汇总模式。
Subtotal有一个可选参数，如果将其设置为True，那么在生成汇总模式时，可以自定义排序参数，而不是根据分组列排序。
例如根据日期和客户排序，分组列为客户，统计列为数量与金额，生成汇总模式：

 

这是自定义排序，我需要的是不改变原来顺序的汇总，因为我原来的顺序是没有什么规则的，纯粹是为了查看方便自己手动排序的，我不想汇总改变我的顺序

 

https://pan.baidu.com/s/14qGJWWH9C2ND5Ywue_NlnA

这是存在网盘的测试项目

好吧，谢谢

那我刚刚给你的项目里，窗口汇总需要自定义排序，根据“商场名称”降序，“超期天数”升序

是在下面代码那一段加

 

Dim t As Table = Tables("超期")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "分公司"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "分公司 = '" & r("分公司") & "'"
        Dim v As String = " 已回款金额:" & format(t.Compute("sum(已回款金额)*-1",f),"#,###")       
        v = v & " 超期余额:" & format(t.Compute("sum(超期余额)",f),"#,###")
        v = v & " 坏账金额:" & format(t.Compute("sum(记账_180天以上)",f),"#,###")
        r("分公司") = "分公司:" & r("分公司") & v
    End If
Next

那我刚刚给你的项目里，窗口汇总需要自定义排序，根据“商场名称”降序，“超期天数”升序

是在下面代码那一段加

 

Dim t As Table = Tables("超期")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "分公司"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "分公司 = '" & r("分公司") & "'"
        Dim v As String = " 已回款金额:" & format(t.Compute("sum(已回款金额)*-1",f),"#,###")       
        v = v & " 超期余额:" & format(t.Compute("sum(超期余额)",f),"#,###")
        v = v & " 坏账金额:" & format(t.Compute("sum(记账_180天以上)",f),"#,###")
        r("分公司") = "分公司:" & r("分公司") & v
    End If
Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:排序问题.xlsx

t.Subtotal(True)

这会造成我分公司分开汇总了，因为我分公司不是连续在一起的

降序和升序呢