主题：求指点，自动生成考试座位号的问题
aaroncheng1
[专家分：0] 发布于 2011-09-04 15:45:00
要做一次考试的准考证，需要生成考生的座位号，座位号编排要求是八位数，前四位是年份（不变），再后二位是考场号，最后二位是座位号。比如"20110101".
每个考场安排30人，满30人后考场号自动由"01"变成"02"。座位号由"01"到"30"。
请高手能指点如何编一个程序。。。非常感谢
回复列表 （共3个回复）
沙发
qjbzjp [专家分：8830] 发布于 2011-09-05 13:27:00
增加一个“座位号”字段。
c="01"
n=1
FOR i=1 to RECCOUNT()
IF n>30
n=1
c=PADL(TRANSFORM(VAL(c)+1),2,"0")
ENDIF
GO i
REPLACE 座位号 with "2011"+c+PADL(TRANSFORM(n),2,"0")
n=n+1
NEXT
以上代码是顺序排号，最好是随机排号为好。
板凳
aaroncheng1 [专家分：0] 发布于 2011-09-05 20:54:00
非常感谢，很好用
3 楼
sdta [专家分：570] 发布于 2014-06-19 13:56:00
Transform(Year(Date()))+Transform(Ceiling(Recno()/30))+Padl(Iif(Recno()%30=0,30,Recno()%30),2,"0")
我来回复
您所在位置：