标题：[求助]优化“统计”按钮代码
下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:退耕还林管理系统.rar
Dim Filter As String
If Tables("总览").ApplyFilter Then '如果总览Table处于筛选状态
Filter = Tables("总览").Filter '获得总览Table的筛选条件
End If
Dim b As New GroupTableBuilder("统计表2",DataTables("总览"),Filter)
b.Groups.AddDef("造林年度") '添加造林年度列用于分组
b.Groups.AddDef("乡名") '添加乡名列用于分组
b.Groups.AddDef("村名") '添加村名列用于分组
b.Totals.AddDef("小班号",AggregateEnum.Count,"小班个数")
b.Totals.AddDef("设计面积","面积合计") '添加数量列用于统计
b.Totals.AddDef("退耕地") '添加数量列用于统计
b.Totals.AddDef("退耕生态林") '添加数量列用于统计
b.Totals.AddDef("退耕经济林") '添加数量列用于统计
b.Totals.AddDef("荒山") '添加数量列用于统计
b.Totals.AddDef("荒山生态林") '添加数量列用于统计
b.Totals.AddDef("荒山经济林") '添加数量列用于统计
b.Totals.AddDef("生态林") '添加数量列用于统计
b.Totals.AddDef("经济林") '添加数量列用于统计
b.VerticalTotal = True '自动垂直汇总
b.Build '生成统计表
MainTable = Tables("统计表2")
以上是“统计”按钮代码，想作如下优化：
只统计到年度
此主题相关图片如下：窗口不筛选.jpg
此主题相关图片如下：不筛选.jpg
只统计到乡名此主题相关图片如下：窗口选年度.jpg
此主题相关图片如下：选年度.jpg
统计到年度乡名
此主题相关图片如下：窗口选年度选乡名.jpg
此主题相关图片如下：选年度选乡名.jpg
原来是输入了某列的内容，才加入这一列的筛选条件，现在不过是换成加入统计分组了。
呵呵，多看帮助，多从基础练习，否则别人帮你做得再多，你还是不会的啊