没有测试,可能有会有问题:
dime sxmc(4),kdmc(4),xm(4),zkzh(4),bmh(4)
FOR i = 1 TO RECCOUNT()
for j=1 to 4
sxmc(j)='sxmc'+str(j,1)
kdmc(j)='kdmc'+str(j,1)
xm(j) ='xm'+str(j,1)
zkzh(j)='zkzh'+str(j,1)
bmh(j) ='bmh'+str(j,1)
endf
for t=i to i+3
GO t
&sxmc(t)=sxmc
&kdmc(t)=kdmc
&xm(t)=xm
&zkzh(t)=zkzh
&bmh(t)=bmh
endf
GO i
REPORT FORM 中考准考证.frx record RECNO() NOCONSOLE prev
*REPORT FORM 中考准考证.frx record RECNO() NOCONSOLE TO PRINTER
i=i+4
NEXT
dime sxmc(4),kdmc(4),xm(4),zkzh(4),bmh(4)
FOR i = 1 TO RECCOUNT()
for j=1 to 4
sxmc(j)='sxmc'+str(j,1)
kdmc(j)='kdmc'+str(j,1)
xm(j) ='xm'+str(j,1)
zkzh(j)='zkzh'+str(j,1)
bmh(j) ='bmh'+str(j,1)
endf
for t=i to i+3
GO t
&sxmc(t)=sxmc
&kdmc(t)=kdmc
&xm(t)=xm
&zkzh(t)=zkzh
&bmh(t)=bmh
endf
GO i
REPORT FORM 中考准考证.frx record RECNO() NOCONSOLE prev
*REPORT FORM 中考准考证.frx record RECNO() NOCONSOLE TO PRINTER
i=i+4
NEXT
相互学习,互相交流,共同提高。