读书人

pb的窗口中行修改提示

发布时间: 2012-02-14 19:19:19 作者: rapoo

pb的窗口,中行修改,提示保存成功,但是并有存入到中?
datawindow中update性已有勾,保存按的代如下
tab_head.tabpage_22.tab_4.tabpage_26.dw_5.accepttext()
if tab_head.tabpage_22.tab_4.tabpage_26.dw_5.ModifiedCount() < 1 then return
if tab_head.tabpage_22.tab_4.tabpage_26.dw_5.update() = -1 then
rollback;
messagebox('提示信息','保存有误!')
else
commit;
messagebox('提示信息','保存成功!')
end if
保存按按之後,已有有提示'提示信息','保存成功!,但是并有存入到中不知何?大指教!

[解决办法]
sqlpreview中写:

C/C++ code
if sqltype = previewinsert! or sqltype = previewupdate! or sqltype = previewdelete! then    messagebox('', sqlsyntax)end if
[解决办法]
// 未入Buffer的料入
IF This.AcceptText() = 1 THEN
// 算修改和除的
ll_mod = This.ModifiedCount( )
ll_del = This.DeletedCount( )
ll_total = ll_mod + ll_del
// 查料是否有,判是否存成功
IF ll_total >= 1 AND This.Update(TRUE, FALSE) > 0 THEN
COMMIT USING SQLCA;
This.ResetUpdate()
This.Object.DataWindow.ReadOnly="Yes"
ib_save = true
ELSE
ROLLBACK USING SQLCA;
MessageBox("存失!!", "存失 , 重新料是否有更新!",StopSign!)
ib_save = false
END IF
END IF
保存事件,是否好!!!

读书人网 >PB

热点推荐