为什么会重复打印？？

beyondxuwei 2004-10-08 01:46:05

总是重复打同一个，而且都是最后一个数据的内容

代码如下：
int pid,cid
long job

pid = message.DoubleParm

declare cursor1 cursor for select autoid from preciousstone where pid=:pid ;
open cursor1;

datastore pt_datastore
pt_datastore = create datastore
pt_datastore.dataobject = "d_precious_print_big"
pt_datastore.settransobject(sqlca)

do while sqlca.sqlcode =0
fetch cursor1 into :cid;
job = PrintOpen()
pt_datastore.retrieve(cid)
PrintDataWindow(job, pt_datastore)
loop
close cursor1;

...全文

124 5 打赏收藏举报

写回复

5 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

beyondxuwei 2004-10-09

打赏
举报

是不是作业号相同就会出来这个问题？
我试了一下楼上大哥的代码，不行哦，一样的

yzh963 2004-10-08

打赏
举报

你只分配了一个业号，打印时只有最后一个被打印，并且打印后要关闭作业：
试试下面的代码，如查不行只能循环设置作业号：
do while sqlca.sqlcode =0
fetch cursor1 into :cid;
if sqlca.sqlcode = 0 then
job = PrintOpen()
pt_datastore.retrieve(cid)
PrintDataWindow(job, pt_datastore)
printclose(job)
else
exit
end if
loop

yl_yz 2004-10-08

打赏
举报

试试
do while sqlca.sqlcode =0
fetch cursor1 into :cid;
if sqlca.sqlcode = 0 then
job = PrintOpen()
pt_datastore.retrieve(cid)
PrintDataWindow(job, pt_datastore)
else
exit
end if
loop

beyondxuwei 2004-10-08