此主题相关图片如下：qq截图20150807111353.png

上面是在表里做的分组统计， 里面有小计， 总计

复制的代码如下：

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("客户")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.SubTotal = True
g.FromServer = True
g.Build()
MainTable = Tables("统计表1")

做了一个窗口， 加入一个按钮和一个表

按钮的代码如下：

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("客户")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.SubTotal = True
g.FromServer = True
g.Build()
Tables ("窗口2_Table1" ). DataSource  = DataTables ("统计表1" )

在窗口中生成如下表， 没有小计和总计， 如何做成有小计，和总计呢？同表的分组统计生成的统计表一样呢？

方法一：

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("客户")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.SubTotal = True
g.FromServer = True

Tables ("窗口2_Table1" ). DataSource  = g.BuildDataSource

方法二：先分组统计，然后再用汇总统计。

Tables("表A").font = New Font("宋体", 15)

老师 此例中有没有什么办法让列宽自动适应其内容的长度

http://www.foxtable.com/help/topics/1669.htm

谢谢大红袍老师  这段代码Tables("员工").AutoSizeCols()应该写在哪个位置  表事件的afterload事件还是？

 写在任意位置都可以，你想自动的时候，就加入此代码。

 比如可以写在 DataColChanged 事件