比如表1有4条记录,报表要一下套打4个,正面的程序运行后,就出4张两样的,可我只想打一张啊
clea
close all
use 1
dime sxmc(4),kdmc(4),xm(4),zkzh(4),bmh(4)
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
go top
for t=1 to 4
&sxmc(t)=sxmc
&kdmc(t)=kdmc
&xm(t)=xm
&zkzh(t)=zkzh
&bmh(t)=bmh
skip
endf
repo form 中考准考证.frx
previ