主题：[求助]优化“统计”按钮代码

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退耕还林管理系统.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

请狐狸爸爸看看