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


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

主题：成绩排名
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，你好，有一个成绩表（外部数据），单位名称，考试名称，年级，班级，总分班排名，年级，排名等字段，我想在后台直接将一个单位名称，考试名称，按总分排出班排名，年级排名，p看了帮助，整不好，请帮指导，，怎么写代码,初学者，不见笑，谢谢

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


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

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.c
cmd.CommandText = "SE   LECT * From {成绩}"
dt = cmd.ExecuteReader()
Dim Arys As List(Of String())  = dt.GetValues("单位名称|考试名称|年级代码")
For Each Ary As String() In Arys
    Dim drs As List(Of DataRow) = dt.Select("[年级代码] = " & ary(2), "总分 DESC")
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        
        If n > 0 AndAlso drs(n)("总分") = drs(n-1)("总分") Then '如果总分和上一行相同
            drs(n)("校序") = drs(n-1)("校序") '则排名等于上一行
        Else
            drs(n)("校序") = n + 1 '设置排名
        End If
    Next
Next

老师，我依照改了个排序代码，提示   无法找到列 总分。是不是因为总分是表达示列，这个怎么办，另外这个代码还有什么问题没的，请指导，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

总分是语总+数总+英总+政总+等

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


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

现在的问题是，当表加载了哪个班，如果再执行统计，原有的校序就变了，统计范围就是这个班的，这样不能后统数据统计。

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


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

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


现在我试了下把 语总 算出来，假设以语总的排校序，但有个问题是相同分数他的序不相同，请看下，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

请老师帮看一下，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

单位名称 石子中心校 　 　
年级代码 14 　 　
班级 02 　 　
考试名称 10月考 　 　
科目 化学 　 　
考号 姓名 A B
1403210002 曹欢 77 16
1403210005 曹欣 76 22
1403210008 陈舒婷 43 6
1403210011 高杰 69 16
1403210014 高在平 72 16
1403210017 兰江 66 12
1403210020 兰丽群 67 14
1403210023 兰文强 59 16
1403210026 兰新月 37 12
1403210029 李佳建 49 10
1403210032 李巧为 83 20
1403210035 李婷 29 8


Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("上分_table1").StopRedraw()
    Dim mc As String = sheet(0,1).value
    Dim dm As String = sheet(1,1).value
    Dim bj As String = sheet(2,1).value
    Dim ksmc As String = sheet(3,1).value
    Dim kmA As String = sheet(4,1).value & "_A"
    Dim kmB As String = sheet(4,1).value & "_B"
    For n As Integer = 5 To Sheet.Rows.Count -1
        Dim kh As String = sheet(n+1,0).value
        Dim dr As DataRow = DataTables("成绩").Find("班级 = '" & bj & "'and 单位名称 = '" & mc & "' and 年级代码 = '" & dm & "'and 考试名称 = '" & ksmc & "' and 考号= '" & kh & "'")
        dr(kmA) = sheet(n+1,2).value
        dr(kmB) = sheet(n+1,3).value
    Next
Tables("上分_table1").ResumeRedraw()
End If

老师，我在上分窗口有一个按钮，目的是从如上面的excl导入到成绩表中，上面代码提示:未将对象引用设置到对象的实例。是什么原因，请指导，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

单位名称 石子中心校 　 　
年级代码 14 　 　
班级 02 　 　
考试名称 10月考 　 　
科目 化学 　 　
考号 姓名 A B
1403210002 曹欢 77 16
1403210005 曹欣 76 22
1403210008 陈舒婷 43 6
1403210011 高杰 69 16
1403210014 高在平 72 16
1403210017 兰江 66 12
1403210020 兰丽群 67 14
1403210023 兰文强 59 16
Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("上分_table1").StopRedraw()
    Dim mc As String = sheet(0,1).value
    Dim dm As String = sheet(1,1).value
    Dim bj As String = sheet(2,1).value
    Dim ksmc As String = sheet(3,1).value
    Dim kmA As String = sheet(4,1).value & "_A"
    Dim kmB As String = sheet(4,1).value & "_B"

    For n As Integer = 5 To Sheet.Rows.Count -1
        Dim kh As String = sheet(n+1,0).value
        Dim dr As DataRow = DataTables("成绩").Find("班级 = '" & bj & "'and 单位名称 = '" & mc & "' and 年级代码 = '" & dm & "'and 考试名称 = '" & ksmc & "' and 考号= '" & kh & "'")
        dr(kmA) = sheet(n+1,2).value
        dr(kmB) = sheet(n+1,3).value
    Next
Tables("上分_table1").ResumeRedraw()
End If,yge 
老师，请问用上面代面导入如上图excl的内容提示未将对象引用设置到对象的实例,请问什么原因，怎么办
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


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

老师，外部数据表加载后有英语_B字段，但在外部数据源查表结构时没有了英语_B字段，并具英语B记录改写后下次打开值没有，请问是什么原因

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 7 次数据查询