Question

为什么PB这段代码无法运行呢？请PB高手们帮我看看，谢谢谢谢~

string fgyh,fssh,fbxsy,fbz
fgyh = sle_1.text
fssh = sle_2.text
fbxsy = mle_1.text
fbz = mle_2.text

if fgyh<>" " and fssh<>" " and fbxsy<>" " then
messagebox("错误！","请完整填写信息!",exclamation!,ok!,2)
else
insert
into fix(公寓号,宿舍号,报修事由,提交日期,解决日期,备注)
values(:fgyh, :fssh, :fbxsy, getdate(), null, :fbz);

if sqlca.sqlcode=0 then
messagebox("提示","保存成功!")
cb_1.enabled=true
close(w_fix)
else
return -1
end if
end if
怎么没有人帮我回答呢，自己又试了试现在已经解决了

Answer 1

少一句commit; 要提交一下