Foxtable(狐表)用户栏目专家坐堂 → 老师,分组列我想按降序,怎么设置


  共有2668人关注过本帖树形打印复制链接

主题:老师,分组列我想按降序,怎么设置

帅哥哟,离线,有人找我吗?
fntfgz
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:411 积分:4950 威望:0 精华:0 注册:2012/11/16 8:21:00
老师,分组列我想按降序,怎么设置  发帖心情 Post By:2019/3/6 16:40:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:降序.jpg
图片点击可在新窗口打开查看

 

 

老师,分组列我想按“段20分”列降序,怎么设置?

因为我要设置累计,所以顺序挺重要,

谢谢老师

[此贴子已经被作者于2019/3/6 16:40:15编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/6 16:43:00 [只看该作者]

 

tables("表A").sort = "段20分 desc"

 


 回到顶部
帅哥哟,离线,有人找我吗?
fntfgz
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:411 积分:4950 威望:0 精华:0 注册:2012/11/16 8:21:00
  发帖心情 Post By: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("统计对比")

 老师,我想要这种形式

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190306171728.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/3/6 17:18:08编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107727 积分:547968 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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"

 回到顶部
帅哥哟,离线,有人找我吗?
fntfgz
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:411 积分:4950 威望:0 精华:0 注册:2012/11/16 8:21:00
  发帖心情 Post By:2019/3/6 17:41:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:2019-03-06_173646.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/6 17:41:00 [只看该作者]

在最后写代码,如

 

Tables("统计对比").sort = "段20分 desc"

 


 回到顶部
帅哥哟,离线,有人找我吗?
fntfgz
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:411 积分:4950 威望:0 精华:0 注册:2012/11/16 8:21:00
  发帖心情 Post By:2019/3/6 19:17:00 [只看该作者]

老师,学生愚钝,第一行700处,累计应该是4才对呀,项目我发上去了,老师在统计的按钮上,帮我改改代码吧

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计.table


图片点击可在新窗口打开查看此主题相关图片如下:2019-03-06_191236.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/3/6 19:18:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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"

 回到顶部
帅哥哟,离线,有人找我吗?
fntfgz
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:411 积分:4950 威望:0 精华:0 注册:2012/11/16 8:21:00
  发帖心情 Post By:2019/3/6 21:11:00 [只看该作者]

 


图片点击可在新窗口打开查看此主题相关图片如下:2019-03-06_210129.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/3/6 21:11:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部