为什么会重复打印？？

[beyondxuwei]

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

代码如下 ：
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;

[beyondxuwei]

还有，在打印的时候，那个打印的窗口总是不响应

[beyondxuwei]

没有人知道吗？？
你们是怎样连续打印的？

[yl_yz]

试试
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

[yzh963]

你只分配了一个业号，打印时只有最后一个被打印，并且打印后要关闭作业：
试试下面的代码，如查不行只能循环设置作业号：
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

[beyondxuwei]

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