为什么会重复打印??
总是重复打同一个,而且都是最后一个数据的内容
代码如下 :
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;