主题：[求助]如何进行统计汇总

 没有数据源呐，亲，把数据源上传才能测试的。

 看2楼，这句代码不是可以生成年度汇总了么？   g.Subtotal = True

 呵呵，我看错了，有数据源！

 嗯，好的，如下代码，参考

 

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

 

 

Dim g As New CrossTableBuilder("数据备案汇总", DataTables("人员增减"))
g.HGroups.AddDef("年度")
g.HGroups.AddDef("县区")
g.VGroups.AddDef("渠道", "渠道_{0}")
g.Totals.AddDef("渠道", AggregateEnum.Count, "渠道")
g.Subtotal = True '生成汇总模式
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()

For i As Integer = 0 To Tables("数据备案汇总").Rows.Count(True) - 1
    Dim r As Row = Tables("数据备案汇总").rows(i, True)
    If r.IsGroup Then
        Dim filter As String = ""
        Dim ary() As String = r("年度").split(" ")
        If ary(0) = "小计" Then
            filter = "年度 = '" & ary(1) & "'"
        End If
        For Each c As Col In Tables("数据备案汇总").Cols
            If c.IsNumeric Then
                r(c.name) = Tables("数据备案汇总").Compute("sum(" & c.name & ")", filter)
            End If
        Next
    End If
Next

MainTable = Tables("数据备案汇总")