下面程序是加入汇总和删除汇总按钮的程序

Static Val As Integer
\'MessageBox.Show(val)
Dim zc As String
Dim b1 As WinForm.Button = e.Form.Controls("Button1")
Dim b4 As WinForm.Button = e.Form.Controls("Button4")
Dim t As Table = Tables("合同进度_Table1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
\'定义客户分组
If val=0 Then
    b4.Text="删除统计"
    b1.Enabled=False
   
    zc="合同数量吨_已经执行,合同数量吨_小计,合同数量吨_未执行,金额元_小计,金额元_累计付款,金额元_应付款,"
    zc=zc & "发车辆_应派车数,发车辆_实派车数,发车辆_到港车数,到港数量吨,已转储备数量吨,应转储备数量吨,"
    zc=zc & "中转装船数量吨,轮换数量吨,异地库存吨,港内库存吨,前日收购数吨"
   
   
   
    g = New Subtotalgroup \'定义一个新的分组
    g.Aggregate = AggregateEnum.Sum \'统计类型为求和
    g.GroupOn = "性质" \'分组列为客户
    g.TotalOn =zc   

    g.Caption = "{0} 小计" \'设置标题
    t.SubtotalGroups.Add(g) \'加到分组集合中

    g = New Subtotalgroup \'定义一个新的分组
    g.Aggregate = AggregateEnum.Sum \'统计类型为求和
    g.GroupOn = "*" \'分组列为客户
    g.TotalOn =zc    

    g.Caption = "{0} 总计" \'设置标题
    t.SubtotalGroups.Add(g) \'加到分组集
       t.Subtotal()
    val=1
Else
    val=0
   \' t.Subtotal()
    b4.Text="增加统计"
    b1.Enabled=True
End If

不是空行!做例子好麻烦！我看到一个怪现象就是小计行或总计行的合并列超界了，占住了小计列！另外小计或总计的标题位置好象也不太对？

很好做例子的啊，将你这个表导出，新建一个项目，导入这个表，传上来，然后贴出你的统计代码即可。

汇总行的标题后移了！

这样的使用方式我以前也用过,程序就是从原来的应用COPY过来的,原来的就好用!

你只要把你一楼图片中的表，导出为一个access文件即可。

然后新建一个项目，导入这个表，传上来。

这是汇总模式，用这个表的数据，就能测试。