主题：新版本有关汇总代码不生效问题？

不会吧。

查询窗口代码：（此窗口中的表是SQL Table)
dim ss as string = "select Top 1000 货主代号,货主名称,资源号,捆包号,货物名称,钢号,规格,件数,重量,仓位代码,仓位描述,货损代码,货损描述,入库单号,出库单号,进货日期,提货日期,进货车船号,提货车船号,发货通知号,提货单位,ID from {出入库明细表} where [状态] = '库存'"
Dim chk As WinForm.CheckBox
chk = e.Form.Controls("CheckBox1")
if chk.checked = true then
   ss = "select 货主代号,货主名称,资源号,捆包号,货物名称,钢号,规格,件数,重量,仓位代码,仓位描述,货损代码,货损描述,入库单号,出库单号,进货日期,提货日期,进货车船号,提货车船号,发货通知号,提货单位,ID from {出入库明细表} where [状态] = '库存'"
end if
Tables("库存捆包查询_Table1").Fill(ss,"baox",false)
Dim t As Table = Tables("库存捆包查询_Table1")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
't.GroupAboveData = true  '在表上显示汇总,下一行为false才行;在表下显示,设为false,下一行为true
't.TreeVisible = false
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" '注意总计分组用符号*表示.
g.TotalOn = "重量,件数"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
 if chk.checked = false then
    messagebox.show("只显示前1000条记录")
 end if