- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老师，分组列我想按降序，怎么设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131789)
-- 发布时间：2019/3/6 16:40:00
-- 老师，分组列我想按降序，怎么设置
此主题相关图片如下：降序.jpg
老师，分组列我想按“段20分”列降序，怎么设置？
因为我要设置累计，所以顺序挺重要，
谢谢老师
[此贴子已经被作者于2019/3/6 16:40:15编辑过]
-- 发布时间：2019/3/6 16:43:00
--
tables("表A").sort = "段20分 desc"
-- 发布时间：2019/3/6 16:50:00
--
老师，还是不行啊
生成的统计表和原来一样啊此主题相关图片如下：2019-03-06_165909.jpg
以下内容为程序代码:
1 Tables("小白院校列表05").sort = "段20分 desc"
2 Dim g As New GroupTableBuilder("统计对比", DataTables("小白院校列表05"))
3 g.Groups.AddDef("段20分")
4 g.Totals.AddDef("误差绝对值", "平均")
5 g.Totals.AddDef("误差绝对值", "累计",True)
6 g.Build()
7 MainTable = Tables("统计对比")
1 Tables("小白院校列表05").sort = "段20分 desc"
2 Dim g As New GroupTableBuilder("统计对比", DataTables("小白院校列表05"))
3 g.Groups.AddDef("段20分")
4 g.Totals.AddDef("误差绝对值", "平均")
5 g.Totals.AddDef("误差绝对值", "累计",True)
6 g.Build()
7 MainTable = Tables("统计对比")
老师，我想要这种形式
此主题相关图片如下：微信图片_20190306171728.png
[此贴子已经被作者于2019/3/6 17:18:08编辑过]
-- 发布时间：2019/3/6 17:33:00
--
1 Tables("小白院校列表05").sort = "段20分 desc"
2 Dim g As New GroupTableBuilder("统计对比", DataTables("小白院校列表05"))
3 g.Groups.AddDef("段20分")
4 g.Totals.AddDef("误差绝对值", "平均")
5 g.Totals.AddDef("误差绝对值", "累计",True)
6 g.Build()
7 MainTable = Tables("统计对比")
Tables("统计对比").sort = "段20分 desc"
-- 发布时间：2019/3/6 17:41:00
--
此主题相关图片如下：2019-03-06_173646.jpg
-- 发布时间：2019/3/6 17:41:00
--
在最后写代码，如
Tables("统计对比").sort = "段20分 desc"
-- 发布时间：2019/3/6 19:17:00
--
老师，学生愚钝，第一行700处，累计应该是4才对呀，项目我发上去了，老师在统计的按钮上，帮我改改代码吧
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:统计.table |
此主题相关图片如下：2019-03-06_191236.jpg
[此贴子已经被作者于2019/3/6 19:18:13编辑过]
-- 发布时间：2019/3/6 20:23:00
--
Dim g As New GroupTableBuilder("统计对比", DataTables("小白院校列表05"))
g.Groups.AddDef("段20分")
g.Totals.AddDef("误差绝对值", AggregateEnum.Average, "平均")
g.Totals.AddDef("误差绝对值", AggregateEnum.Sum, "累计")
g.Build()
MainTable = Tables("统计对比")
Tables("统计对比").sort = "段20分 desc"
-- 发布时间：2019/3/6 21:11:00
--
此主题相关图片如下：2019-03-06_210129.jpg
[此贴子已经被作者于2019/3/6 21:11:49编辑过]
-- 发布时间：2019/3/6 21:20:00
--
Dim g As New GroupTableBuilder("统计对比", DataTables("小白院校列表05"))
g.Groups.AddDef("段20分")
g.Totals.AddDef("误差绝对值", AggregateEnum.sum, "平均")
g.Totals.AddDef("误差绝对值", AggregateEnum.Sum, "累计")
g.Build()
MainTable = Tables("统计对比")
Tables("统计对比").sort = "段20分 desc"
Dim sum = 0
For Each r As Row In Tables("统计对比").Rows
r("累计") += sum
sum = r("累计")
Next