发信人: mingle_qin(终极战神)
整理人: winsy(2003-03-05 15:08:24), 站内信件
|
【 在 yjkbird 的大作中提到：】
:我在动态地建立了一个为总成绩的字段，就是语文+数学+英语 as 总成绩，我现在想根据总成绩的高低动态地建立一个字段来显示排名，是成绩排名（就是相同总分的为同一名,譬如：两个总分为300的为第一名，299的为第三名）。谢谢！！！！！！着急解决，在线等待！！！！！！！！！
:......
我自学生时代就有编成绩管理的经验,虽然当时是用VFP,你这一问题易解决!
你应该有一字段用来存放名次吧.如果没有,也没关系,你先将其按总成绩排名,这点你该会了吧!然后作冒泡排序的第一次检索,以下是代码:
设一DAO控件DATA1与其成绩库关联.以下是伪代码(真代码挺长的)
DATA1.RecordSource("select * from 成绩表 order by 成绩")
Data1.Refresh
dim m as Integer '当前名次
m=1
While Not lrReco.Eof
将m存放在当前记录的名次字段上
a=当前记录
b=1
llSor=当前记录成绩
移至下一记录
if lrReco.Eof Then
exit sub
endif
While a=Data1.RecordSet.Fields("总成绩") '成绩相同
将m存放在当前记录的名次字段上
b=b+1
移至下一记录
Wend
m=m+b '下一名次
Wend
伪代码看得懂吗？如有什么问题请提吧。
|
|