专家坐堂-后台统计Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  后台统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92125)

--  作者：刘林
--  发布时间：2016/10/26 16:37:00
--  后台统计
请问老师，我做了个后台分组统计后，有总分列，我想增加排序列来按总分排序，请问怎么办？谢谢

--  作者：有点蓝
--  发布时间：2016/10/26 16:52:00
--
增加临时列：http://www.foxtable.com/webhelp/scr/1428.htm

--  作者：刘林
--  发布时间：2016/10/26 19:21:00
--
老师我是分组统计产生的临时表绑定在窗口的TABALE1表格中增加不起来

--  作者：刘林
--  发布时间：2016/10/26 19:31:00
--

Dim g As New GroupTableBuilder("统计表1", DataTables("成绩"))
Dim dt1 As fxDataSource
g.Groups.AddDef("考试名称")
g.Groups.AddDef("单位名称")
g.Groups.AddDef("年级代码")
g.Groups.AddDef("班级")
g.Totals.AddDef("姓名",AggregateEnum.Count,"参考人数")
g.Totals.AddDef("语文_A",AggregateEnum.Average,"语文平均_A")
g.Totals.AddDef("语文_B",AggregateEnum.Average,"语文平均_B")
g.Totals.AddDef("数学_A",AggregateEnum.Average,"数学平均_A")
g.Totals.AddDef("数学_B",AggregateEnum.Average,"数学平均_B")
g.Totals.AddDef("英语_A",AggregateEnum.Average,"英语平均_A")
g.Totals.AddDef("英语_B",AggregateEnum.Average,"英语平均_B")
g.Totals.AddDef("政治_A",AggregateEnum.Average,"政治平均_A")
g.Totals.AddDef("政治_B",AggregateEnum.Average,"政治平均_B")
g.Totals.AddDef("历史_A",AggregateEnum.Average,"历史平均_A")
g.Totals.AddDef("历史_B",AggregateEnum.Average,"历史平均_B")
g.Totals.AddDef("物理_A",AggregateEnum.Average,"物理平均_A")
g.Totals.AddDef("物理_B",AggregateEnum.Average,"物理平均_B")
g.Totals.AddDef("化学_A",AggregateEnum.Average,"化学平均_A")
g.Totals.AddDef("化学_B",AggregateEnum.Average,"化学平均_B")
g.Totals.AddDef("生物_A",AggregateEnum.Average,"生物平均_A")
g.Totals.AddDef("生物_B",AggregateEnum.Average,"生物平均_B")
g.Totals.AddDef("地理_A",AggregateEnum.Average,"地理平均_A")
g.Totals.AddDef("地理_B",AggregateEnum.Average,"地理平均_B")
g.Totals.AddDef("体育",AggregateEnum.Average,"体育平均")
g.Totals.AddDef("物理实验",AggregateEnum.Average,"物理实验")
g.Totals.AddDef("化学实验",AggregateEnum.Average,"化学实验")
g.Totals.AddDef("总分",AggregateEnum.Average,"总分平均")
g.Totals.AddDef("折总",AggregateEnum.Average,"折总平均")
g.FromServer = True
g.Build()
dt1 = g.BuildDataSource()
DataTables("统计表1").DataCols.Add("排名",Gettype(Integer))
Tables("后台统计_table2").DataSource = dt1
Tables("后台统计_table2").SetColVisibleWidth("考试名称|80|单位名称|80|年级代码|40|班级|30|参考人数|30|语文平均_A|40|语文平均_B|40|数学平均_A|30|数学平均_B|40|英语平均_A|40|英语平均_B|40|政治平均_A|40|政治平均_B|40|历史平均_A|40|历史平均_B|40|物理平均_A|40|物理平均_B|40|化学平均_A|40|化学平均_B|40|生物平均_A|40|生物平均_B|40|地理平均_A|40|地理平均_B|40|体育平均|40|物理实验|40|化学实验|40|总分平均|70|折总平均|70|排名|40")
Dim btn2 As WinForm.Button = e.Form.Controls("Button2")
btn2.PerformClick()

请问老师给临时表增加临时列，加不起呢

--  作者：有点蓝
--  发布时间：2016/10/26 20:58:00
--

Dim g As New GroupTableBuilder("统计表1", DataTables("成绩"))
Dim dt1 As Table = Tables("后台统计_table2")
g.Groups.AddDef("考试名称")
g.Groups.AddDef("单位名称")
g.Groups.AddDef("年级代码")
g.Groups.AddDef("班级")
g.Totals.AddDef("姓名",AggregateEnum.Count,"参考人数")
g.Totals.AddDef("语文_A",AggregateEnum.Average,"语文平均_A")
g.Totals.AddDef("语文_B",AggregateEnum.Average,"语文平均_B")
g.Totals.AddDef("数学_A",AggregateEnum.Average,"数学平均_A")
g.Totals.AddDef("数学_B",AggregateEnum.Average,"数学平均_B")
g.Totals.AddDef("英语_A",AggregateEnum.Average,"英语平均_A")
g.Totals.AddDef("英语_B",AggregateEnum.Average,"英语平均_B")
g.Totals.AddDef("政治_A",AggregateEnum.Average,"政治平均_A")
g.Totals.AddDef("政治_B",AggregateEnum.Average,"政治平均_B")
g.Totals.AddDef("历史_A",AggregateEnum.Average,"历史平均_A")
g.Totals.AddDef("历史_B",AggregateEnum.Average,"历史平均_B")
g.Totals.AddDef("物理_A",AggregateEnum.Average,"物理平均_A")
g.Totals.AddDef("物理_B",AggregateEnum.Average,"物理平均_B")
g.Totals.AddDef("化学_A",AggregateEnum.Average,"化学平均_A")
g.Totals.AddDef("化学_B",AggregateEnum.Average,"化学平均_B")
g.Totals.AddDef("生物_A",AggregateEnum.Average,"生物平均_A")
g.Totals.AddDef("生物_B",AggregateEnum.Average,"生物平均_B")
g.Totals.AddDef("地理_A",AggregateEnum.Average,"地理平均_A")
g.Totals.AddDef("地理_B",AggregateEnum.Average,"地理平均_B")
g.Totals.AddDef("体育",AggregateEnum.Average,"体育平均")
g.Totals.AddDef("物理实验",AggregateEnum.Average,"物理实验")
g.Totals.AddDef("化学实验",AggregateEnum.Average,"化学实验")
g.Totals.AddDef("总分",AggregateEnum.Average,"总分平均")
g.Totals.AddDef("折总",AggregateEnum.Average,"折总平均")
g.FromServer = True
dt1.DataSource = g.BuildDataSource()
dt1.DataTable.DataCols.Add("排名",Gettype(Integer))
dt1.SetColVisibleWidth("考试名称|80|单位名称|80|年级代码|40|班级|30|参考人数|30|语文平均_A|40|语文平均_B|40|数学平均_A|30|数学平均_B|40|英语平均_A|40|英语平均_B|40|政治平均_A|40|政治平均_B|40|历史平均_A|40|历史平均_B|40|物理平均_A|40|物理平均_B|40|化学平均_A|40|化学平均_B|40|生物平均_A|40|生物平均_B|40|地理平均_A|40|地理平均_B|40|体育平均|40|物理实验|40|化学实验|40|总分平均|70|折总平均|70|排名|40")
Dim btn2 As WinForm.Button = e.Form.Controls("Button2")
btn2.PerformClick()

--  作者：刘林
--  发布时间：2016/10/26 21:35:00
--
老师，请问在后台按总分平均排名怎么加代码，谢谢！

--  作者：有点蓝
--  发布时间：2016/10/26 21:44:00
--
截图说明或者上例子，不知道你要怎么排

--  作者：刘林
--  发布时间：2016/10/26 21:52:00
--
有字段生成的临时表有考试名称，单位名称，年级代码，班级总分，我想排出同考试名称，同年级代码，不同学校，不同班级的总分排名，如所有16年秋半期考试14级总分班序,要后台统计,谢谢,

--  作者：有点蓝
--  发布时间：2016/10/26 22:06:00
--
按同考试名称，同年级代码，不同学校，不同班级，总分进行排序，按顺序给排名赋值

dt1.sort = "考试名称,年级代码,学校,班级,总分 desc"

--  作者：刘林
--  发布时间：2016/10/26 22:13:00
--
我成绩表里有还有其他考试名称，其他年级，如果这样就存在不同考试名称，也一起参与排序了
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:desktop.rar
，还是请帮看下,谢谢