Dim sql As String = "Select numbers,jodate,eveid,eveidname,evinvoiceid,submiterid,submiteridname,remark,doctype,doctypename,sum(amount) As [totalamount],count(numbers) As [rowcount] Fr om {pm0102} Group By numbers,jodate,eveid,eveidname,evinvoiceid,submiterid,submiteridname,remark,doctype,doctypename"
Dim g As New CrossTableBuilder("统计表1",sql)
g.HGroups.AddDef("numbers")
g.HGroups.AddDef("submiterid")
g.HGroups.AddDef("cheks")
g.VGroups.AddDef("numbers")
g.Totals.AddDef("totalamount", "totalamount", True)
g.OrderByTotal = True
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
g.SubtotalLevel = 0 '只生成总计行
g.Build()
bxmx.Table.DataSource =g.BuildDataSource()
MessageBox.Show(1)
Dim t As Table = bxmx.Table
Dim g1 As Subtotalgroup
't.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = False
g1 = New Subtotalgroup
g1.Aggregate = AggregateEnum.Sum
g1.GroupOn = "numbers"
Dim str As String
For Each c As DataCol In t.DataTable.DataCols
If c.name<>"numbers" Then
str &= c.name & "," '对数量和金额进行统计
End If
Next
g1.TotalOn=str.TrimEnd(",")
g1.Caption = "{0} 小计"
t.SubtotalGroups.Add(g1)
t.Subtotal()
加好友 
发短信
Post By：2018/12/13 20:13:00 [只看该作者]
此主题相关图片如下：725f2edc-5c2a-4df0-8ab8-2fae81dd512d.png
