integer li_return
decimal{4} ldc_concume_money
string ls_room_code,ls_check_no
ls_check_no = is_check_no
ls_room_code = trim(sle_room_code.Text)
if dw_card_consume.GetRow() = 0 then
MessageBox("出错", "当前没有客人消费信息!", Exclamation!)
Return
end if
ldc_concume_money = dw_card_consume.GetItemDecimal(dw_card_consume.GetRow(), "consume_sum")
if ldc_concume_money <= 0 then
MessageBox("提示", "消费金额必须大于零!", Exclamation!)
Return
end if
li_return = f_dw_save(dw_card_consume)
if li_return = -1 then
MessageBox("失败", "房卡消费失败!", Exclamation!)
Return
else
//更新表POS_CHECK_DETAIL的remark字段,放入房间号
update POS_CHECK_DETAIL
set remark = :ls_room_code
where check_no = :ls_check_no
using g_trans;
if g_trans.sqlcode = 0 then
Commit Using g_trans;
else
rollback using g_trans;
MessageBox("出错", "数据库更新失败!", StopSign!)
Return
end if
end if
MessageBox("成功", "房卡消费成功!")
CloseWithReturn(Parent, ldc_concume_money)
整个按钮脚本都贴出来了~为什么update就更新不起????执行也不出错,debug也找不出来 why ?????高手快来解释下!!!!!!!!!!!!!!!!!!!!!!