如何取消在子窗体中经修改但未保存的数据表记录

jsmugong

各位朋友:
       在access中,如何取消在子窗体中经修改但未保存的数据表记录.如附件中"班级信息"窗体中单击"取消"按钮后,在子窗体中修改过的某条记录的数据不保存到数据表中.

[ 本帖最后由 jsmugong 于 2008-1-25 15:29 编辑 ]

wxf2008hz

我也想知道啊

wsloyj

我正想获得这个问题的答案，请高手关注！！！

goto2008

感觉晕晕的

rjacky

记得之前好像回答过这个问题的，一搜果然就找到，偶得记忆力不错

http://www.office-cn.net/forum.php?mod=viewthread&tid=59319

kokolc

这个问题我也想了好久，最后是用ado和事务解决的
在Form_Load时开始事务
然后再在ado的recordset上加一个事件监听如：
' rstChild 是ado 在子窗体上的一个recordset
' xxx_FieldChangeComplete是recordset的一个事件
' 当recordset的某个field发生改变是这个事件将会执行，接下来看就简单了
Private Sub rstChld_FieldChangeComplete(ByVal cFields As Long, _
    ByVal Fields As Variant, _
    ByVal pError As ADODB.Error, _
    adStatus As ADODB.EventStatusEnum, _
    ByVal pRecordset As ADODB.Recordset)
On Error GoTo ErrHandler
    bolIsEdt = True ‘ 这是一个全局变量，当某个Field改变后把它设为True(本来是false)
    Exit Sub
ErrHandler:
    Call GoFunction.ErrProcess(1,Err) ' 这是一个错误处理的东东
  Exit Sub
End Sub
最后在Form_OnLoad里MsgBox一下 如果选择保存而且bolIsEdt = True就CommitTrans
否则不管bolIsEdt都RollBack
应该说很麻烦，不过希望能帮你，有什么其他好办法记得说来听听

goto2008

帮你顶一下