select 表1(取得数据)
//------没有commit和rollback
open(w_win) //窗口中没有任何sql语句
ls_set=message.stringparm
update 表2(更新数据)
if sqlca.sqlcode<>0 then
rollback;
messagebox("","fasle")
return
end if
insert into 表1(增加数据)
if sqlca.sqlcode<>0 then
rollback;
messagebox("","fasle")
return
end if
commit;
messagebox("","true") //---多台机器运行--偶尔死机运行不了程序,难道select语句也要commit,rollback?