首先在学生数据库AA.DBF的结构中增加一个字段名为“名次”的空字段，作排名次之用，然后将下列程序段嵌入成绩录入程序的末端，运行后可在不改变原有顺序的情况下得到学生名次。
SET TALK OFF
USE AA
INDEX ON 总分 TO AAIN
SET INDEX TO AAIN
COUNT TO X
GO TOP
T=0
DO WHILE .NOT. EOF()
D=X-T
SKIP
ENDDO
USE
ERASE AAIN.NDX
RETURN
注：AAIN.NDX是一个以总分为关键字的索引文件。