why?
long v_quantity
int i,j,n
v_workdate=dw_2.getitemstring(1,"plan_recemodify_hsd_date")
st_3.text="请 等 待 . . ."
for i=1 to dw_2.rowcount()
v_m_no=dw_2.getitemstring(i,"plan_rece_m_no")
v_quantity=dw_2.getitemnumber(i,"plan_rece_quantity")
//建立游标
DECLARE work_temp CURSOR FOR
SELECT "WORKDATE","INVOICE_NO"
FROM "M_WORK"
WHERE "WORKDATE" >= :v_workdate
AND "M_NO" = :v_m_no
AND "QUANTITY" = :v_quantity
AND "STATEID" ='i';
OPEN work_temp;
SELECT COUNT(*) INTO :n FROM "M_WORK" WHERE "WORKDATE" >= :v_workdate AND "M_NO" = :v_m_no AND "QUANTITY" = :v_quantity AND "STATEID" ='i';
IF n>0 then
FOR j=1 to n
FETCH work_temp INTO :v_workdate1,:v_invoice_no;
INSERT INTO "PLAN_WORK_TEMP"
("INVOICE_NO",
"WORKDATE",
"M_NO",
"QUANTITY"
)
VALUES (:v_invoice,
:v_workdate1,
:v_m_no,
:v_quantity
);
if sqlca.sqlcode<>0 then
exit
end if
next
END IF
close work_temp;
next
commit;
select count(*) into :n from "PLAN_WORK_TEMP";
IF n=0 then
st_3.text=""
messagebox("信息提示","这样的记录还没入库!")
else
dw_3.settransobject(sqlca)
dw_3.retrieve()
// messagebox("信息提示",n)
dw_3.visible=true
end if
st_3.text=""
以上代码,在执行时明明有记录,却说没有,请指教。