Foxtable(狐表)用户栏目专家坐堂 → 对学生成绩的动态排名


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

主题:对学生成绩的动态排名

帅哥哟,离线,有人找我吗?
明帆
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/9/22 7:16:00
对学生成绩的动态排名  发帖心情 Post By:2011/9/23 23:08:00 [只看该作者]

 最近在用foxtable做一个教学管理的系统,由于自己是新手,所以对于要对学生的总分进行排名并显示名次的功能实现不了,请各位高手支招图片点击可在新窗口打开查看

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/9/23 23:18:00 [只看该作者]

您应该制作一个示例文件,哪里卡壳解决哪里,这样泛泛的问题让人不知道从哪里回答您,抱歉!

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2011/9/24 7:28:00 [只看该作者]

示例三

Filter参数不能省略,如果希望返回所有行,将Filter参数设置为""即可。
例如在一个成绩表中,包括班级、姓名、总分、总分排名几列数据,希望按班级自动生成总分排名

'获得所有班级名称,保存在集合中
Dim
bjs As List(Of String) = DataTables("成绩表").GetUniqueValues("","班级")
For Each
bj As String In bjs
   
'获得该班级的全部行,按总分降序排序
    Dim
drs As List(Of DataRow) = DataTables("成绩表").Select("[班级] = " & bj, "总分 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

这是一个很典型的应用,可以参考CaseStudy目录下的文件:成绩排名.Table


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/24 8:47:00 [只看该作者]

看这里的示例三:

 

http://www.foxtable.com/help/topics/0400.htm

 

不过作为初学者,最好先系统性地看两遍帮助,才能更好地理解。


 回到顶部