主题：排序和汇总的问题

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 = " 超期金额:" & t.Compute("sum(超期金额)",f)

        v = v & " 超期余额:" & t.Compute("sum(超期余额)",f)

        v = v & " 坏账金额:" & t.Compute("sum(记账_180天以上)",f)

        r("分公司") = "分公司:" & r("分公司") & v

    End If

Next

第二个问题是我想按照固定的顺序自定义排序，比方说原来顺序排列可能是A、B、C……，但是我希望有一个排序方式永远是A、C、B