根据数值大小（前5名，数值相同排名相同）对数据表中的每条记录的字段名进行动态排序

SET TALK OFF
USE d:\tt\tt.dbf
REPLACE PM WITH ''
ZDMC=''
Q1= AFIELDS(TTArray)  && 创建数组。
FOR i = 2 TO Q1-1   
    ZDMC=ZDMC+IIF(i#2,',','')+TTArray(i,1)  && 取字段名列表
ENDFOR
SCAN
    Q1= AFIELDS(TTArray)  && 创建数组。
    DIMENSION ME(Q1-2)
    FOR i = 2 TO Q1-1
       ME(i-1)= TTArray(i,1)  && 赋字段名用于排序
    ENDFOR
    *SCATTER FIELDS 语文,数学,外语,物理,化学,政治,历史,地理,生物,信息,艺术,体育 TO SArray
    SCATTER FIELDS &ZDMC. TO SArray
    FOR i=1 TO Q1-3
        FOR j=1 TO Q1-2-i
            IF SArray(j)<SArray(j+1)
                Mel=SArray(j)
                SArray(j)=SArray(j+1)
                SArray(j+1)=Mel
                Nel=ME(j)
                ME(j)=ME(j+1)
                ME(j+1)=Nel            
            ENDIF
        ENDFOR
    ENDFOR
    ss=1
    AM=ME(1)
    FOR j =1 TO Q1-3
        ss=ss+1
        IF SArray(j)=SArray(j+1)
            AM=AM+"、"+ME(j+1)
        ELSE
            IF ss>5
                EXIT
            ENDIF
            AM=AM+"，"+ME(j+1)
        ENDIF  
    ENDFOR
    REPLACE PM WITH AM
ENDSCAN
BROWSE