主题：排序和汇总的问题

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(超期金额)",f), "#,###.00")

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

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

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

    End If

Next

 

2、你要额外加一个排序列，输入数值，根据此列排序