我有一数据-语文单科成绩,怎样编写同成绩的名次编写

请参考：https://bbs.bccn.net/thread-232909-1-1.html

参考：INDEX ON或SORT ON

&&***********&&给一个成绩表排名,相当于execl的中函数rank()
n=0      && 定义一个变量,赋值为0
cjbak=1000   && 定义一个变量,赋值为不等第一条记录的字段"zf"的任意值

USE cjzf      &&打开表
INDEX ON zf to zf   &&定义字段"ZF"为索引标识
SET ORDER TO zf DESCENDING   &&定义按字段"ZF"降序排列打开的表
GO TOP                        &&指针到顶      
FOR i=1 to RECCOUNT()       &&开始循环
 
    IF zf=cjbak          &&判断本条记录的字段"ZF"是否等于变量cjbak
    REPLACE mc WITH n      &&相等则改写字段"mc"为n
    ELSE
     REPLACE mc WITH i      &&不相等,则用变量"i"改写字段"mc"
     ENDIF
    cjbak=zf    &&将本条记录的字段"ZF"的值赋给变量cjbak
     n=mc     &&将本条记录的字段"mc"的值赋给变量n
    SKIP        && 指针下移一行
ENDFOR      && 结束循环
GO TOP       &&指针到顶,方便浏览
BROWSE
RETURN

谢谢大侠！