long ll_rtn, ll_row
ll_row = dw_1.GetRow()
if ll_row > 0 then
dw_1.AcceptText()
ll_rtn = dw_1.Update( true)
if ll_rtn =1 then
COMMIT USING SQLCA;
Messagebox('提示','数据已保存!')
dw_1.object.datawindow.readonly = true
else
ROLLBACK USING SQLCA;
Messagebox('提示','保存失败!'+char(13)+char(10)+SQLCA.sqlErrText)
end if
end if
dw_1.ScrollToRow( dw_1.retrieve(is_dateid))
return ll_rtn