对我来说很郁闷的一个问题,指教!!
tab_1.tabpage_3.dw_5.AcceptText()
is_hth= trim(dw_master.object.hth[dw_master.getrow()])
is_dh=trim(dw_master.object.dh[dw_master.getrow()])
gdt_sysdate=uf_getserverdatetime()
ldc_sxf=dec(sle_1.text)
select syje,qs into :ldc_sybj,:ls_qs from xdydb where isnull(hkbs,0)<>'1' and convert(char(7),jzhdsj,120)= convert(char(7),dateadd(month,1,convert(char(8),getdate(),120)+'10'),120) ;
if sqlca.sqlcode <0 then
rollback;
messagebox("提示信息","数据操作失败!")
return -1
end if
ldc_yhlx=ldc_sybj*ldc_sxf
ldc_ygje=ldc_yhlx + ldc_sybj
insert into xdhdb (dh,hth,qs,hdje,bjje,lxje,jzhdsj,xh,hdsj,hdlx) select dh,hth,qs,:ldc_ygje,:ldc_sybj,:ldc_yhlx,jzhdsj,'1',:gdt_sysdate,'提前还款' from xdydb
where yxbz='1' and dh=:is_dh and qs=:ls_qs ;
if sqlca.sqlcode<0 then
messagebox("提示信息","数据保存失败!")
return -1
end if
update xdydb set yxbz='0' where isnull(hkbs,0)<>'1' and yxbz='1';
if sqlca.sqlcode<0 then
messagebox("提示信息","数据保存失败!")
return -1
end if
//取消还贷
return 1
大家帮忙看看
我运行程序以后,在SQL中查询表中的数据半天没反应。只有退出程序以后才可以查询。。这个是什么原因啊。怎么劈面啊