文化课程考试全校打乱，是一个一个班交替打乱的，怎么做呢？有代码分享吗？

座位按班级来如
549
550
551
。。。。
569
然后再来一圈 549   550 551 就是这样简单循环

&&SET DEFAULT TO F:\360Apps\0309


CLOSE DATABASES
SELECT 0
use 职中考生
SELECT distinct 来源,班主任 FROM 文化方案 INTO TABLE zzbj
SELECT 职中考生
ALTER table 职中考生 ADD 辅助号 n(9)
SELECT zzbj
sss=RECCOUNT()
GO toP
FOR i=1 TO sss
    SELECT zzbj
    pbj=ALLTRIM(来源)
    pfzh=1
    SKIP 1
    SELECT 职中考生
    GO top
    DO WHILE NOT EOF()
        IF ALLTRIM(班级)=PBJ THEN
            REPLACE 辅助号 WITH pfzh
            pfzh=pfzh+1
        ENDIF
        SKIP 1
    enddo
   
ENDFOR

INDEX on 辅助号 TAG pfz
SET ORDER TO pfz
GO top

增加一个辅助号字段，可是效率不高，每一个班级要查1000多人，21个班级也蛮慢