[求助]CrossTableBuilder - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师这段代码MessageBox.Show(1) 之前就出现一个如下提示，没看明白为什么，其中，SQL语言是没问题的，测试成功

此主题相关图片如下：725f2edc-5c2a-4df0-8ab8-2fae81dd512d.png

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

g1.TotalOn=str.TrimEnd(",")

g1.Caption = "{0} 小计"

t.SubtotalGroups.Add(g1)

t.Subtotal()

主题：[求助]CrossTableBuilder