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


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

主题:成绩排名

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


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


[此贴子已经被作者于2020/1/8 14:58:58编辑过]

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


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

老师,出错


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20200108145155.png
图片点击可在新窗口打开查看


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


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

代码?

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


加好友 发短信
等级:童狐 帖子:291 积分:2440 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2020/1/8 15:09: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

[此贴子已经被作者于2020/1/8 15:09:38编辑过]

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


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

dim lst as new list(of string)

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("_")

lst.add(Parts(0) & "_名次")

    End If
Next

for each s as string in lst

        dt.DataCols.Add(s, Gettype(Double))

next


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


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

谢谢

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


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

老师位置给个提示

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


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

没看懂,什么位置?

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


加好友 发短信
等级:童狐 帖子:291 积分:2440 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2020/1/9 7:47: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
dt = cmd.ExecuteReader()

Dim b As New CrossTableBuilder("统计表1", dt)
b.HGroups.AddDef("学期")
b.HGroups.AddDef("考试名称")
b.HGroups.AddDef("班级")
b.HGroups.AddDef("学生编号")
b.HGroups.AddDef("学生姓名")
b.VGroups.AddDef("学科","{0}_分数")
b.Totals.AddDef("学生分数", "学生分数")
t.DataSource = b.BuildDataSource()
Dim lst As new List(of String)
dt = DataTables("成绩分析_Table1")
For Each dc As DataCol In dt.DataCols
    Dim Tel As String = dc.Caption
    If Tel .Contains("_分数") Then
        Dim Parts() As String = Tel.Split("_")
        lst.add(Parts(0) & "_名次")
    End If
Next
For Each s As String In lst
    dt.DataCols.Add(s, Gettype(Double))
Next

比如:语文_分数、语文_名次 排在一起,数学_分数、数学_名次 排在一起



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

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


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

dim idx as integer= 6
For Each s As String In lst
    dt.DataCols.Add(s, Gettype(Double))
    t.cols(s).move(idx)
   idx += 2
Next

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