for i=1 to upperbound(ldw_name[])
ldw_name[i].settransobject(ltran_sqlca)
if ldw_name[i].update(true,false) = -1 then
Post MessageBox("SQL error", SQLCA.SQLErrText , StopSign! )
rollback using ltran_sqlca;
messagebox("系统提示","数据保存失败!"+"datawindow"+string(i) , StopSign!)
return -1
end if
next
for i=1 to upperbound(ldst_name[])
ldst_name[i].settransobject(ltran_sqlca)
if ldst_name[i].update(true,false) = -1 then
Post MessageBox("SQL error", SQLCA.SQLErrText, StopSign!)
rollback using ltran_sqlca;
messagebox("系统提示","数据保存失败!"+"datastore"+string(i)+error.Text , StopSign! )
return -1
end if
next
for i=1 to upperbound(ldst_name[])
ldst_name[i].resetupdate()
next
for i=1 to upperbound(ldw_name[])
ldw_name[i].resetupdate()
next
commit using ltran_sqlca;
if ltran_sqlca.SqlCode = -1 Then
Post MessageBox("SQL错误", ltran_sqlca.SqlErrText, StopSign!)
Rollback;
MessageBox("错误","数据保存失败,提交出错!",StopSign!)
Return -1
End if
return 1