以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现，主表或明细修改，没保存，不能关闭窗口，只有保存后，才能关闭？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190691)
--  作者：lin98
--  发布时间：2024/2/28 19:46:00
--  如何实现，主表或明细修改，没保存，不能关闭窗口，只有保存后，才能关闭？
\'如果当前记录(行)是已经修改但没有保存，将禁止关闭窗口，直到保存或撤销修改，窗口的BeforeClose事件设置为：
If Tables("采购登记窗口_Table1").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    e.Cancel = True
    MessageBox.Show("不能关闭，请保存后!")
End If

问题一：上面代码，只对新增后，没保存，有效，而对新增保存后进行修改，无有效，如何解决？

\'如果当前记录(行)是已经修改但没有保存，将禁止关闭窗口，直到保存或撤销修改，窗口的BeforeClose事件设置为：
If Tables("采购登记窗口_Table1").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    e.Cancel = True
    MessageBox.Show("不能关闭，请保存后!")
End If

If Tables("采购登记窗口_Table2").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    e.Cancel = True
    MessageBox.Show("新增或修改后，没有保存，不能关闭，请保存后，再关闭!")
End If


问题二：如何实现主表或明细表，新增后，没保存，或新增保存后进行修改，没保存，不能关闭窗口，只有保存后，才能关闭？
--  作者：有点蓝
--  发布时间：2024/2/29 8:40:00
--  
http://www.foxtable.com/webhelp/topics/0387.htm