vf9.0编排考室座位号

求助:vf9.0编排考室座位号
根据库中报考职位排序后的顺序再编排考室与座位号,分别是30人一个考室,1-30座位。
先vf根据报考职位排序后,再导出excel,排的考室号座位号。有点麻烦,且容易出错。vf循环语句不会。求助!?
------解决方案--------------------
思路:
排序后,取CEILING(RECNO()/30) 做 考室号即可
------解决方案--------------------
这个论坛上好象有 你搜搜
------解决方案--------------------
以前做过的,忘了具体怎么写了,给你个大概
kc--考场号  zw--座位号
sele ksb
go top
i=1
j=1
do while not eof()
 if j<=30
    repl ksb.kc with i,zw with j
    j=j+1
 else 
   i=i+1
   j=1
 endif
sele ksb
skip
enddo