各位朋友，您们好！
考场，座位拉通排的代码：
use zkz
zwh=1
kch=1
Scan
Replace zw With Padl(zwh,2,[0])   
Replace kc With Padl(kch,3,[0])
zwh=zwh+1
If zwh>30
zwh=1
kch=kch+1
Endif
Endscan
Browse
但，现在遇到个问题，考场座位号要根据表中另一列的内容变动而变动。
根据sj字段的升序，考场号也升序排列，sj字段不同后，考场也需相应的增加1.直至整个数据排完。
只知道方法是需要做个判定sj不一致，考场号+1.但是这个代码试了很多，都不得行。但是试了很多方式都不行。请朋友们帮帮忙。非常感谢！ 如图所示：(该图是手工处理考场，座位后的图)。

你的sj并没在程序中出现

CLOSE DATABASES
SELECT 0
use zkz
zwh=1
kch=1
csj=sj
SCAN

 IF  !csj=sj
  csj=sj
  zwh=1
  kch=kch+1
  Replace zw With Padl(zwh,2,[0])   
  Replace kc With Padl(kch,3,[0])
  zwh=zwh+1  

 ELSE
  Replace zw With Padl(zwh,2,[0])   
  Replace kc With Padl(kch,3,[0])
  zwh=zwh+1
  If zwh>30
    zwh=1
    kch=kch+1
  Endif

 ENDIF 
Endscan
Browse

应该要对sj建索引，相同的排在一起才行

CLOSE ALL
SET SAFETY OFF
SET TALK OFF

UPDATE Zkz SET Kc="0"+RIGHT(Sj,2)
UPDATE Zkz SET Kc="0"+Kc WHERE LEN(ALLTRIM(Kc))<3
SELECT Zkz
INDEX ON Kc TAG Kc
GO TOP
Kch=Kc
Zwh=0
SCAN
    IF Kc#Kch
       Zwh=0
       Kch=Kc
    ENDIF
    Zwh=Zwh+1
    REPLACE Zw WITH PADL(Zwh,2,[0])
ENDSCAN

BROWSE
CLOSE ALL
SET SAFETY ON
SET TALK ON
RETURN

[ 本帖最后由 taifu945 于 2013-4-23 14:16 编辑 ]

use zkz
INDEX ON sj to id
zwh=1
kch=0
n=ALLTRIM(sj)
SCAN
    If kch=30
        zwh=zwh+1
        kch=0
    ENDIF     
    IF n!=ALLTRIM(sj)
        kch=kch+1
    ELSE
        kch=1
        n=ALLTRIM(kc)
    ENDIF         
    REPLACE kc With PADL(zwh,3,"0"),zw With PADL(kch,2,"0")
ENDSCAN
BROWSE

CREATE CURSOR ZKZ (ZW C(2),KC C(3),SJ C(7))
FOR I=1 TO ALINES(A,[16,23,41,70],[,])
    FOR J =1 TO CAST(A(I) AS N(2))
        INSERT INTO ZKZ VALUES ([],[],[20801]+PADL(I,2,[0]))
    ENDFOR
ENDFOR
STORE 1 TO ZWH,KCH
SJH=[]
SCAN
    IF ZWH>30 OR SJ!=SJH
       ZWH=1
       KCH=KCH+1
    ENDIF
    REPLACE ZW WITH PADL(ZWH,2,[0])
    REPLACE KC WITH PADL(KCH,3,[0])
    ZWH=ZWH+1
    SJH=SJ
ENDSCAN
BROWSE
USE IN ZKZ

红色句出错

这是 VFP9 版本的代码

USE zkz
 INDEX on sj TO msj     &&以sj作为索引依据
 GO TOP
 DO whil NOT EOF()
   msj=sj
   kch=1
 DO whil NOT EOF() AND sj=msj     &&当sj改变或者zwh达到30时，考场号增加1
   zwh=1   
  DO whil NOT EOF() AND sj=msj AND zwh<=30  &&当座位号大于30时，跳出本次循环
   Replace zw With Padl(zwh,2,[0])     &&替换座位号  
   Replace kc With Padl(kch,3,[0])     &&替换考场号
   SKIP
   zwh=zwh+1
  ENDDO
   kch=kch+1
  ENDDO
 ENDDO  &&当到达文件尾时，结束循环
 BROWSE