Foxtable(狐表) → 用户栏目 → 专家坐堂 → 增加分段统计列不显示


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

主题：增加分段统计列不显示
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		增加分段统计列不显示  发帖心情 Post By：2016/11/13 17:30:00 [显示全部帖子]

Dim g As New GroupTableBuilder("统计表1", DataTables("成绩"))
''''Dim g As New GroupTableBuilder("统计表1", "成绩")
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.Totals.AddDef("总分",AggregateEnum.Average,"总分平均")
g.Totals.AddExp("300分以下","iif(总分 < 300,1,0)")

g.FromServer = True
dt1.DataSource = g.BuildDataSource()
dt1.DataTable.DataCols.Add("班级排名",Gettype(Integer))

''********"'And [班级] = '" & ary1(2) &   And [单位名称] = '" & ary1(1) & "'
Dim Arys1 As List(Of String())  = dt1.DataTable.GetValues("考试名称|单位名称|年级代码")
For Each Ary1 As String() In Arys1
    Dim drs As List(Of DataRow) = dt1.DataTable.Select("[考试名称] = '" & ary1(0) & "'and [年级代码] ='" & ary1(2) & "'", "折总平均 DESC")
    For m As Integer = 0 To drs.Count - 1 '遍历所有行
       If m > 0 AndAlso drs(m)("折总平均") = drs(m-1)("折总平均") Then '如果总分和上一行相同
          drs(m)("班级排名") = drs(m-1)("班级排名") '则排名等于上一行
       Else
            drs(m)("班级排名") = m + 1 '设置排名
       End If
    Next
Next
''********
dt1.SetColVisibleWidth("考试名称|80|单位名称|160|年级代码|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|300分以下|20")
Dim btn2 As WinForm.Button = e.Form.Controls("Button2")
btn2.PerformClick()


请问想在分组统计表中继续增加总分分段统计，为什么不行，请指教，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/14 13:14:00 [显示全部帖子]

要不要加数据源

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/14 13:18:00 [显示全部帖子]


Dim g As New sqlGroupTableBuilder("统计表1", "成绩")
g.C
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.Totals.AddDef("总分",AggregateEnum.Average,"总分平均")
dt1.DataSource = g.BuildDataSource()
g.Totals.AddDef("折总",AggregateEnum.Average,"折总平均")
g.Totals.AddDef("总分",AggregateEnum.Average,"总分平均")
g.FromServer = True
dt1.DataSource = g.BuildDataSource()
dt1.DataTable.DataCols.Add("班级排名",Gettype(Integer))
dt1.DataTable.DataCols.Add("300分以下",Gettype(Integer))

For Each dr As DataRow In dt1.DataTable.DataRows
    dr("300分以下") = DataTables("成绩").Compute("count(总分)","[考试名称] = '" & dr("考试名称") & "'and [年级代码] ='" & dr("年级代码") & "' and 单位名称 = '" & dr("单位名称") & "' and 班级='" & dr("班级") & "' and 总分 < 300" )
Next
''********"'And [班级] = '" & ary1(2) &   And [单位名称] = '" & ary1(1) & "'
Dim Arys1 As List(Of String())  = dt1.DataTable.GetValues("考试名称|单位名称|年级代码")
For Each Ary1 As String() In Arys1
    Dim drs As List(Of DataRow) = dt1.DataTable.Select("[考试名称] = '" & ary1(0) & "'and [年级代码] ='" & ary1(2) & "'", "折总平均 DESC")
    For m As Integer = 0 To drs.Count - 1 '遍历所有行
       If m > 0 AndAlso drs(m)("折总平均") = drs(m-1)("折总平均") Then '如果总分和上一行相同
          drs(m)("班级排名") = drs(m-1)("班级排名") '则排名等于上一行
       Else
            drs(m)("班级排名") = m + 1 '设置排名
       End If
    Next
Next
''********
dt1.SetColVisibleWidth("考试名称|80|单位名称|160|年级代码|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|300分以下|20")
Dim btn2 As WinForm.Button = e.Form.Controls("Button2")
btn2.PerformClick()


老师，我改成上面的结果是说总分,折总列无效，请指导
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/14 14:50:00 [显示全部帖子]

老师按5楼方式统计，我试了下，400分以上均为0个，而实际不是这样

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/14 14:57:00 [显示全部帖子]

哦，这是要加载数据进行统计，老师，我是想不加载统计，请老师明示怎么办，我很需要一个后台统计
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/11/14 16:01:00 [显示全部帖子]

如果用这种方式统计需要全部加载，我是想不用加载成绩表的情况下统计，请老师指点
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询