专家坐堂-RejectChanges用了为什么表格还是没变回来Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  RejectChanges用了为什么表格还是没变回来  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118432)

--  作者：bossge
--  发布时间：2018/5/2 18:52:00
--  RejectChanges用了为什么表格还是没变回来

窗口事件：BeforeClose

Dim Result As DialogResult
If Tables("员工表").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("员工表").DataTable.Save()
Tables("员工表").DataTable.Load()
Else If Result = DialogResult.No Then
Tables("员工表").DataTable.RejectChanges()
Tables("员工表").DataTable.Load()
End If
End If

为什么这么设置选否的时候员工表里修改的数字还是没有变回上次保存的值呢？

--  作者：有点甜
--  发布时间：2018/5/2 18:55:00
--

Dim Result As DialogResult
If Tables("员工表").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Tables("员工表").DataTable.Save()
        Tables("员工表").DataTable.Load()
    Else If Result = DialogResult.No Then
        Tables("员工表").DataTable.RejectChanges()
        Tables("员工表").DataTable.Load()
    End If
End If

--  作者：bossge
--  发布时间：2018/5/2 18:58:00
--
谢谢哈