- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]优化“统计”按钮代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=879)
-- 发布时间：2008/10/15 10:15:00
-- [求助]优化“统计”按钮代码
下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:退耕还林管理系统.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
-- 发布时间：2008/10/15 15:23:00
--
请狐狸爸爸看看
-- 发布时间：2008/10/15 15:57:00
--
自己去完成吧，道理和筛选一样。
原来是输入了某列的内容，才加入这一列的筛选条件，现在不过是换成加入统计分组了。
呵呵，多看帮助，多从基础练习，否则别人帮你做得再多，你还是不会的啊
-- 发布时间：2024/4/21 16:38:00
--
这些代码从哪里学习呀，请指导一下谢谢
-- 发布时间：2024/4/21 22:28:00
--
参考：http://www.foxtable.com/webhelp/