成绩排名 程序优化

成绩排名程序,可否再进行优化，或者哪位还有更通俗易懂的：
表：CJ   PM
    85   1
    84   2
    84   2
    83   4
    。。。。


public w_max,n,i
n=1    && 成绩相同的人数
i=0    && 排名序号

select cjk
set order to cj
go top

w_max = cjk.cj
repl pm with n+i
skip    
    do while !eof()
    if w_max = cjk.cj
             n = n + 1
    else
        if n>0
           i = i + n + 1
           n = 0
        else
           i = i + 1
        endif
    endif

    repl pm with i
    w_max = cjk.cj
    skip
    enddo

[ 本帖最后由 szy345 于 2008-9-12 15:19 编辑 ]

n=0
cjbak=0
USE cjk
INDEX ON cj to cj
SET ORDER TO cj DESCENDING
GO top
FOR i=1 to RECCOUNT()
    n=IIF(cjbak=cj,n,n+1)
    REPLACE pm with n
    cjbak=cj
    skip
next

楼上的可能要再改改，有点小问题
    CJ  PM
    85   1
    84   2
    84   2
    83   4
2个84并列第2，那么83就应该是第4名了，而不是第3名

不要第3名吗？那就是说如果有好几个同分数的，就会缺少好几个名次了？

n=0
cjbak=0
USE cjk
INDEX ON cj to cj
SET ORDER TO cj DESCENDING
GO top
FOR i=1 to RECCOUNT()
    n=IIF(cj=cjbak,i-1,i)
    REPLACE pm with n
    cjbak=cj
    skip
next

ding !学习了！！！

这2句还是有点问题：

CJ  PM       i值   cj=cjbak  n值
84  1         1       F       1
83  2         2       F       2
83  2         3       T       2
83  2         4       T     （i-1）=3   
82  5         5       F       5

SELECT cj,COUNT(*) as co FROM cj GROUP BY cj ORDER  BY cj DESC  INTO TABLE  temp
ALTER TABLE temp ADD COLUMN pm n(2)
a=0
b=1
FOR i=1 TO RECCOUNT()
REPLACE pm WITH a+b
a=co
b=pm
SKIP
ENDFOR
SELECT cj.cj,temp.pm FROM cj,temp WHERE cj.cj=temp.cj ORDER BY cj.cj DESC into table 排名表

[ 本帖最后由 ibmlang_002 于 2008-9-12 22:45 编辑 ]

用ibmlang_002 的SQL代码效率更高！学习了！

不过与楼主探讨，既然是排名，有空下的名次好像也不妥？
比如奥运会运动项目中，如果有并列第二名，也不可能不要第三名了。

只是各个项目的要求不同。
没有什么硬性的规定。