Foxtable(狐表)用户栏目专家坐堂 → 窗口的BeforeClose事件代码问题


  共有11372人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
红叶
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:357 积分:2895 威望:0 精华:0 注册:2008/9/1 14:05:00
窗口的BeforeClose事件代码问题  发帖心情 Post By:2012/3/29 15:35:00 [显示全部帖子]

模式窗口的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能禁止关闭

 

[此贴子已经被作者于2012-3-29 15:37:46编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
红叶
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:357 积分:2895 威望:0 精华:0 注册:2008/9/1 14:05:00
  发帖心情 Post By:2012/3/29 15:46:00 [显示全部帖子]

参照 传统编辑方式 的实例

设计步骤:

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

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

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

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

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

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

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


 回到顶部