why?

dos123 2000-09-08 05:43:00

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=""
以上代码,在执行时明明有记录,却说没有,请指教。
...全文
59 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

34,575

社区成员

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧