语人均分    语名次    数人均分    数名次    英人均分    英名次
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

CREATE CURSOR A1 (语人均分 N(3,1), 语名次 I, 数人均分 N(3,1), 数名次 I, 英人均分 N(3,1), 英名次 I)
INSERT INTO A1 VALUES (75.5, 0, 63.3, 0, 65.8, 0)
INSERT INTO A1 VALUES (61.7, 0, 48.6, 0, 65.3, 0)
INSERT INTO A1 VALUES (75.5, 0, 63.3, 0, 65.8, 0)
INSERT INTO A1 VALUES (61.7, 0, 48.6, 0, 65.3, 0)
INSERT INTO A1 VALUES (75.5, 0, 63.3, 0, 65.8, 0)
INSERT INTO A1 VALUES (61.7, 0, 48.6, 0, 65.3, 0)
_rank("A1", "语人均分", "语名次")
BROWSE
_rank("A1", "数人均分", "数名次")
BROWSE
_rank("A1", "英人均分", "英名次")
BROWSE


FUNCTION _rank(XX, YY, ZZ)
    LOCAL nYY, nZZ
    SELECT (XX)
    EXECSCRIPT("INDEX on " + YY + " TAG LSB DESCENDING")
    GO TOP
    nYY = EVALUATE(YY)
    nZZ = 1
    SCAN
        IF EVALUATE(YY) != nYY
           nYY = EVALUATE(YY)
           nZZ = nZZ + 1
        ENDIF
        REPLACE (ZZ) WITH nZZ
    ENDSCAN
ENDFUNC

谢谢二楼的，来试下看！

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

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

人均分 = 各科总分/人数
各科总分 = SUM(各科分数)
如果每人一条记录，人数 = 记录数 = RECCOUNT()

_rank（）是个什么函数。怎么以前没见过

_rank（）自定义函数
是高手自己创建的一个函数

在DOS时代，这可是最高水准了。