多个datawindow在同一个事物中保存数据

if tab_1.tpg_1.dw_1.update(true,false) = -1 &
      or tab_1.tpg_2.dw_2.update(true,false) = -1 or tab_1.tpg_3.dw_4.update(true,false) = -1 then
string ls_sqlerr
ls_sqlerr = sqlca.sqlerrtext
rollback;
messagebox('提示!','存盘错误,数据库错误为:' + ls_sqlerr)
return -1
else
commit;
tab_1.tpg_1.dw_1.resetupdate()
//tab_1.tpg_1.dw_5.resetupdate()
tab_1.tpg_2.dw_2.resetupdate()
tab_1.tpg_3.dw_4.resetupdate()
messagebox('提示!','存盘成功!保存为编号:'+ is_keyvalue)
return 1
end if
posted @ 2011-04-13 15:51  kuailewangzi1212  阅读(211)  评论(0编辑  收藏  举报