以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 不想修改数据，需要将数据返回至修改前？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112893)
--  作者：2900819580
--  发布时间：2018/1/4 19:33:00
--  [求助] 不想修改数据，需要将数据返回至修改前？
If DataTables("产品").HasChanges Then
    If MessageBox.Show("产品表已经被修改，是否保存？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        DataTables("产品").Save()
else
执行返回修改前的数据 代码
    End If 

End If
[此贴子已经被作者于2018/1/4 19:33:21编辑过]
--  作者：cd_tdh
--  发布时间：2018/1/4 19:47:00
--  
应该要判断当前行，执行。
.Current.Reject()
--  作者：2900819580
--  发布时间：2018/1/4 20:01:00
--  
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable
If dt.HasChanges Then
    If MessageBox.Show("产品表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        dt.Save()
    Else
        dt.RejectChanges
    End If
Else
    MessageBox.Show("没有修改")
End If