Foxtable(狐表)用户栏目专家坐堂 → 成绩排名


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

主题:成绩排名

美女呀,离线,留言给我吧!
联友
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:292 积分:2457 威望:0 精华:0 注册:2013/5/23 9:49:00
成绩排名  发帖心情 Post By:2020/1/7 8:05:00 [只看该作者]

老师,按班级、学科增加学生成绩排名,请指教,谢谢!

Dim t As Table = e.Form.controls("Table1").Table
e.Form.controls("NavBar1").SelectedPage.Butt
Dim SQL As String ="Sel ect  c.学期,班级,考试名称,c.学生编号,学生姓名,学科,学生分数 Fr om ({学生基本信息} a Inner JOIN {学生缴费} b ON b.学生编号 = a.学生编号) Inner JOIN {学生成绩} c ON c.学期 = b.学期 And c.学生编号 = b.学生编号 Where c.学期 = '20191'"
Dim cmd As New SQLCommand
cmd.CommandText = SQL
Dim dt As DataTable = cmd.ExecuteReader()
Dim b As New CrossTableBuilder("统计表1",dt)
b.HGroups.AddDef("学期")
b.HGroups.AddDef("班级")
b.HGroups.AddDef("学生编号")
b.HGroups.AddDef("考试名称")
b.VGroups.AddDef("学科","{0}_分数")
b.Totals.AddDef("学生分数", "学生分数")

t.DataSource = b.BuildDataSource()

[此贴子已经被作者于2020/1/7 8:11:16编辑过]

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


加好友 发短信
等级:超级版主 帖子:55000 积分:278763 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 9:07:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
联友
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:292 积分:2457 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2020/1/7 9:17:00 [只看该作者]

关键学科引用

b.VGroups.AddDef("学科","{0}_分数")


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


加好友 发短信
等级:超级版主 帖子:55000 积分:278763 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 9:32:00 [只看该作者]

没看懂,什么问题?

 回到顶部
美女呀,离线,留言给我吧!
联友
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:292 积分:2457 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2020/1/7 9:41:00 [只看该作者]

Dim t As Table = e.Form.controls("Table1").Table
e.Form.controls("NavBar1").SelectedPage.Butt
Dim SQL As String ="Sel ect  c.学期,班级,考试名称,c.学生编号,学生姓名,学科,学生分数 Fr om ({学生基本信息} a Inner JOIN {学生缴费} b ON b.学生编号 = a.学生编号) Inner JOIN {学生成绩} c ON c.学期 = b.学期 And c.学生编号 = b.学生编号 Where c.学期 = '20191'"
Dim cmd As New SQLCommand
cmd.CommandText = SQL
Dim dt As DataTable = cmd.ExecuteReader()
Dim b As New CrossTableBuilder("统计表1",dt)
b.HGroups.AddDef("学期")
b.HGroups.AddDef("班级")
b.HGroups.AddDef("学生编号")
b.HGroups.AddDef("考试名称")
b.VGroups.AddDef("学科","{0}_分数")  ‘ 学科引用?
b.Totals.AddDef("学生分数", "学生分数")

t.DataSource = b.BuildDataSource()

老师,搞了1天多了写不出来。

[此贴子已经被作者于2020/1/7 9:47:02编辑过]

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


加好友 发短信
等级:超级版主 帖子:55000 积分:278763 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 9:53:00 [只看该作者]

什么引用?引用什么?上传实例说明

 回到顶部
美女呀,离线,留言给我吧!
联友
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:292 积分:2457 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2020/1/7 10:34:00 [只看该作者]

按学科排名和总分,想要下图结果,求老师帮忙,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:学生成绩排名.rar


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20200107103336.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/1/7 10:34:17编辑过]

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


加好友 发短信
等级:超级版主 帖子:55000 积分:278763 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 10:43:00 [只看该作者]

排名列需要作为临时列添加:http://www.foxtable.com/webhelp/topics/1428.htm
然后移动到合适的位置:http://www.foxtable.com/webhelp/topics/1437.htm


 回到顶部
美女呀,离线,留言给我吧!
联友
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:292 积分:2457 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2020/1/8 12:58:00 [只看该作者]

老师,帮我代码错在哪?谢谢!

For Each dc As DataCol In DataTables("成绩分析_Table1").DataCols
    Dim Tel As String = dc.Caption
    Dim Parts() As String = Tel.Split("_")
    If Tel.Contains("_") Then
        Dim dt1 As DataTable = DataTables("成绩分析_Table1")
        For Each v As String In Parts(0)
            dt.DataCols.Add(v & "_名次", Gettype(Double))
        Next
    End If
Next


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


加好友 发短信
等级:超级版主 帖子:55000 积分:278763 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/8 13:36:00 [只看该作者]


Dim dt1 As DataTable = DataTables("成绩分析_Table1")
For Each dc As DataCol In dt1.DataCols
    Dim Tel As String = dc.Caption
    If Tel .Contains("_分数") Then
        Dim Parts() As String = Tel.Split("_")
        dt.DataCols.Add(Parts(0) & "_名次", Gettype(Double))
    End If
Next

 回到顶部
总数 28 1 2 3 下一页