下载信息 [文件大小: 下载次数: ]点击浏览该文件:退耕还林管理系统.rarDim Filter As StringIf Tables("总览").ApplyFilter Then '如果总览Table处于筛选状态 Filter = Tables("总览").Filter '获得总览Table的筛选条件End IfDim 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