我在打印报表时做了一个打印按钮,其代码为

Set Date to Ansi
Sele JXK
=Tableupdate(.t.)

ThisformSet.QC_FILTER
ThisformSet.QC_ORDER
MXZT=Iif(IsBlan(MXZT),"Qcdm=''",MXZT)
MPXT=Iif(IsBlan(MPXT),"XH",MPXT)
If Used("LSK")
Sele LSK
Use
Endif
Eras GCK\LSK.*
Eras Gck\QCDMEX.*
Select Xh,Qcdm,Qcmc,Ycbh,Xhgg,Jldw,Djyl,Bzdj,Czm,Zl,Bzm,Cbbz,Zclb,Wxjb,Dhbz,Gxbz,Gcdh,Allt(Ojxmc)+' 【'+Allt(Ojxjc)+'】' As JX;
From DMK\JXK_YZ;
Where &MXZT;
Order by &MPXT;
Into table Gck\QCDMEX
Sele QCDMEX
Repl all Xh With Recn()
Urow=32
Uxh=iif(Mod(recc(),Urow)==0,0,Urow-mod(recc(),Urow))
For I=1 to Uxh
Appe blan
Next
REPORT Form DMK\PRG\器材代码_机型器材代码.Frx NOEJECT NOCONSOLE PREVIEW IN SCREEN TO PRINTER PROMPT
Sele QCDMEX
Use
可打印出的数据全部是一个相同的值,这是怎么回事?
是不是程序的问题啊?