使用update语句无法更新数据库

[PBtoohard]

cb_1 click事件
int a,b
decimal rp,bn
select max(typenum)
into :a
from type;
for b=1 to a
select roomprice
into :rp
from "type"
where "type"."typenum"=:b;
bn=rp*0.9
update "type"
set "type"."roomprice"=:bn
where "type"."typenum"=:b
using SQLCA;
commit using SQLCA;
dw_1.retrieve()
b=b+1
next
没有报错，但就是什么反应都没有，取a值没有问题，就是不能更新。

[aolixiaox]

写在 commit 前

[aolixiaox]

messagebox 输出sqlerrtext看看，具体出错原因

[PBtoohard]

引用 1 楼 aolixiaox 的回复:

messagebox 输出sqlerrtext看看，具体出错原因

是一个空的，只有一个蓝色的感叹号

[PBtoohard]

是我sqlerrtext写错了吗？