语人均分    语名次    数人均分    数名次    英人均分    英名次
75.5    0    63.3    0    65.8    0
61.7    0    48.6    0    65.3    0
类似上面的表有假如有4个，A1,A2,A3,A4
调用下面过程文件排序 DO ww WITH 文件名，"语人均分","语名次"，怎么实现不了？如何调用？
PROCEDURE ww
PARAMETERS  XX,yy,zz
INDEX on -&yy TO LSB                         &&总分从大到小排列
GO TOP                                              &&定位到第一行
n名次 = 1                                           &&名次,记号,从1 到 N 不重复
n总分 = 0                                           &&用来存上一条记录的总分
DO whil !EOF()
        IF n总分 = XX.&yy                      &&判断与上一条的总分是否一样
            REPLACE XX.&zz WITH LSZD  &&如果一样,用上次记录名次替换
        ELSE
            REPLACE XX.&zz WITH n名次         &&否则，用不重复新名次
        ENDIF
        LSZD = XX.&zz                  &&存下这条记录的名次
        n总分 = XX.&yy                         &&用于下条记录的判断
        n名次 = n名次 +1                                &&'名次（记号）,从1到N不重复'+1
        SKIP                                            &&下一条
ENDDO
ENDPROC

谢谢二楼的，来试下看！

真的可以呀！高手呀，谢谢二楼的

求教一下各科人均分怎么写代码？