主题：窗口的BeforeClose事件代码问题

模式窗口的BeforeClose事件：

If Tables("销售商").Current IsNot Nothing Then
    If Tables("销售商").Current.DataRow.RowState = DataRowState.Added  Or Tables("销售商").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果是新增行或当前行已经修改过
       MessageBox.show("当前记录尚未确认,不能关闭!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
       e.Cancel = True

     End If
End If

当 销售商 当前行是新增或修改过，窗口关闭前是能MessageBox.show提示，但是e.Cancel = True禁止关闭没起作用，还是关闭了？

除非再打开窗口设计后，再次运用，此代码才有效e.Cancel = True能禁止关闭

 

参照 传统编辑方式 的实例

设计步骤：

1、设计好上图所示的窗口，窗口类型为模式窗口，这样在用户关闭此窗口之前不能进行任何操作。

2、将窗口的BeforeClose事件代码设置为：

If Tables("员工").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
    e.Cancel = True
End If

上面的代码在关闭窗口前执行，如果用户已经修改当前记录(行)，但未保存，将禁止关闭窗口，直到保存或撤销修改。

设计完保存退出项目，然后再重新打开项目后，也同样存在这样的问题：

e.Cancel = True禁止关闭没起作用，还是关闭了,

除非再打开窗口设计后，再次运用，此代码才有效e.Cancel = True能禁止关闭

你打开CaseStudy目录下的文件：传统编辑方式.Table

看看是不是也这样，如果不是，看看这个文件和你的设计有什么不同。

你解决了么？我也是遇到同样的情况，怎么研究都得不出答案，就是关闭窗口前能弹窗提示，但是按确定后，窗口并未保存还是关闭了。而且关闭后数据还是有保存。

应该不存在这样的问题，我测试e.Cancel = True这句代码有效。