pb的數據窗口，中對數據進行批改，提示保存成功，但是數據并沒有存入到數據庫中

2013-01-04

pb的數據窗口，中對數據進行修改，提示保存成功，但是數據并沒有存入到數據庫中？本帖最后由 xlb14 于 2011-09

pb的數據窗口，中對數據進行修改，提示保存成功，但是數據并沒有存入到數據庫中？
本帖最后由 xlb14 于 2011-09-14 10:05:16 编辑 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中写：

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

pb的數據窗口，中對數據進行批改，提示保存成功，但是數據并沒有存入到數據庫中