主题：[求助统计代码怎么写

楼主的要求真低啊.

按钮代码:

Dim g As New CrossTableBuilder("统计表1", DataTables("明细表"))

g.HGroups.AddDef("时间")

g.VGroups.AddDef("姓名")

g.Totals.AddDef("金额","金额")

g.Decimals = 2

g.Build()

Dim t As Table = Tables("统计表1")

With t.DataTable

    For Each dc As DataCol In .DataCols

        If dc.name<> "时间" Then

            .DataCols(dc.Name).Caption = dc.Caption & "总金额"

        End If

    Next

    .BuildHeader()   

End With

MainTable =t