Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
明帆 发表于:2011/9/23 23:08:00
 最近在用foxtable做一个教学管理的系统,由于自己是新手,所以对于要对学生的总分进行排名并显示名次的功能实现不了,请各位高手支招图片点击可在新窗口打开查看
2楼
程兴刚 发表于:2011/9/23 23:18:00
您应该制作一个示例文件,哪里卡壳解决哪里,这样泛泛的问题让人不知道从哪里回答您,抱歉!
3楼
don 发表于: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楼
狐狸爸爸 发表于:2011/9/24 8:47:00

看这里的示例三:

 

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

 

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

共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.