pb的數據窗口，中對數據進行修改，提示保存成功，但是數據并沒有存入到數據庫中？该如何处理

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的數據窗口，中對數據進行修改，提示保存成功，但是數據并沒有存入到數據庫中？该如何处理

相关推荐