****************************************************** * 考场安排:30人/考场 * 特点:当考生人数不是30的整数倍时,1号考场空1号座位 ****************************************************** CLEAR CREATE CURSOR KC (考生号 C(4),考场号 C(4),座位号 C(7)) NUM=1821 &&总人数 KCS=INT(NUM/30)+IIF(MOD(NUM,30)=0,0,1) &&考场数 FOR I=1 TO NUM INSERT INTO KC VALUE (PADL(I,4,"0"),PADL(MOD(I,KCS)+1,4,"0"),"") ENDFOR SELECT * FROM KC ORDER BY 考场号 INTO DBF MMM REPLACE ALL 座位号 WITH 考场号+"-"+TRANSFORM(MOD(RECNO(),30)+1) BROWSE CLOSE TABLES ERASE MMM.DBF |
|