动态字段如何排序

*****求列第1、2大值
Set Talk Off
Set Safe Off
use bb in 0
use pmax in 0
FOR i=1 TO RECCOUNT()-99  
    SELECT * FROM bb WHERE BETWEEN(jnh,i,i+99)  INTO TABLE lsb &&&每次选100条记录确定第1、2大值

    SELECT lsb
    kk=2
*****填充每列空白行序号值
    FOR lnj = kk TO FCOUNT()
        n1 = 0
        SELECT * FROM lsb WHERE Not Empty(EVALUATE(FIELD(lnj))) INTO Cursor ls

        IF RECCOUNT()>0
            use
            SELECT lsb
            SCAN
                c1 = EVALUATE(FIELD(lnj))
                IF !EMPTY(c1)
                    n1 = 0
                ELSE
                    n1 = n1 + 1
                    REPLACE (FIELD(lnj)) WITH TRANSFORM(n1)
                ENDIF

            ENDSCAN
        endif

    ENDFOR
*****保留填充序号最后的值(即空白行最大值)
    USE fc\lsb IN 0 ALIAS t1 AGAIN
    USE fc\lsb IN 0 ALIAS t2 AGAIN
    SELECT t1
    SET RELATION TO RECNO()+1 INTO "t2"
    SELECT t1
    FOR lnj = kk TO FCOUNT()
        *n1 = 0
        SELECT * FROM t1 WHERE Not Empty(EVALUATE(FIELD(lnj))) INTO Cursor ls

        IF RECCOUNT()>0
            use
            SELECT t1
            SCAN
                c1 = EVALUATE('t1.'+FIELD(lnj))
                c2 = EVALUATE('t2.'+FIELD(lnj))
                REPLACE ('t1.'+FIELD(lnj)) with IIF(VAL(c2)>0 AND VAL(c1)>0 ,"",c1)
            ENDSCAN
        endif

    ENDFOR
    SET RELATION TO
    SELECT t1
    USE
    SELECT t2
    USE
    SELECT lsb
****以上两段代码是列出空白行的数据，为下一代码求空白行数据的最大、次最大标数值。
***求列第1、2大值(主要代码段)
    FOR lnj = kk TO FCOUNT("lsb")
        Go BOTTOM
        kjn=jnh  &&确定在pmax标注时对应行
        k1=VAL(EVALUATE(FIELD(lnj,"lsb"))) &&列最后行的值
        
        Calculate Max(VAL(EVALUATE(FIELD(lnj,"lsb")))) To k2 &&列最大值(第1大值)
        COUNT FOR !empty(EVALUATE(FIELD(lnj,"lsb"))) TO krow &&非空行数

        IF k1=k2 AND k1>0 AND krow>20 AND k1<7 &&求第2大值,与最大值比较
            cmd = [SELECT ]+FIELD(lnj,"lsb")+[ mk FROM lsb WHERE ISDIGIT(]+FIELD(lnj,"lsb")+[) ORDER BY ]+FIELD(lnj,"lsb")+[ DESC into cursor tmp]
            EXECSCRIPT(cmd)

            GO 2 IN "tmp"
            k3 = VAL(tmp.mk) &&第2大值

            IF INLIST(k2-k3,1,2) &&在pmax对应行标注
                SELECT pmax
                GO kjn
                REPLACE mmax WITH 'MMAX'
                SELECT lsb
                EXIT &&结束本轮字段循环
            ENDIF
            SELECT lsb
        ENDIF
    ENDFOR
ENDFOR
sele pmax
brow

use bb in 0
use pmax in 0
SELECT pmax
BLANK FIELDS mmax ALL
SELECT bb
COPY TO ARRAY a100 NEXT 100 && 第1个100行
pmax(@a100)
SELECT bb
SKIP
SCAN REST
    ** 下一个100行
    SCATTER TO a1  && 取bb一行存入a1
    ADEL(a100,1)   && 删除a100第1行
    ACOPY(a1, a100, 1, -1, AELEMENT(a100,100,1))  && 将a1写入a100最后一行
    pmax(@a100)
ENDSCAN
SELECT * FROM pmax
RETURN

FUNCTION k2k3(k2,k3,n1)  && 最大值、最次大值
    IF n1 > k2
        k2 = n1
    ELSE
        IF n1 > k3
            k3 = n1
        ENDIF
    ENDIF
ENDFUNC

FUNCTION pmax(a100)
    FOR nCol=2 TO ALEN(a100,2)
        n1 = 0
        k2 = 0
        k3 = 0
        krow = 0  &&非空行数
        FOR nRow=1 TO ALEN(a100,1)
            IF EMPTY(a100[nRow,nCol])
                n1 = n1 + 1
            ELSE
                k2k3(@k2,@k3,@n1)
                n1 = 0
                krow = krow + 1
            ENDIF
        ENDFOR
        k1 = n1  &&列最后行的值
        k2k3(@k2,@k3,@n1)
        IF k1==k2 AND k1>0 AND krow>20 AND k1<7     &&求第2大值,与最大值比较
            IF INLIST(k2-k3,1,2) &&在pmax对应行标注
                SELECT pmax
                GO a100[100,1]
                REPLACE mmax WITH "MMAX"
                EXIT
            ENDIF
        ENDIF
    ENDFOR
ENDFUNC