窗口beforeclose和afterclose - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口beforeclose和afterclose

共有2109人关注过本帖树形打印复制链接主题：窗口beforeclose和afterclose

80790800

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：67 积分：698 威望：0 精华：0 注册：2014/4/24 19:16:00

窗口beforeclose和afterclose 发帖心情

Post By：2017/3/14 13:32:00 [显示全部帖子]

版主你好：

我在同一个窗口的beforeclose和afterclose分别写如下代码

before

If Tables("袜机状态表").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
MessageBox.Show("请保存数据后再关闭!")
e.Cancel = True
End If

after

Forms("织造车间袜机状态").Close
Forms("织造车间袜机状态").open

我修改数据后没有保存数据，直接点关闭窗口，弹出“请保存数据后再关闭”的提示，确定之后窗口本不应该关闭，但是却关闭了。

我把afterclose 的代码删除就不会关闭了，是两段代码有冲突吗？该如何避免？ afterclose中的代码我是想刷新数据用。

80790800

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：67 积分：698 威望：0 精华：0 注册：2014/4/24 19:16:00

Post By：2017/3/14 16:35:00 [显示全部帖子]

If Tables("袜机状态表").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
MessageBox.Show("请保存数据后再关闭!")
e.Cancel = True

Else

Forms("织造车间袜机状态").Close
Forms("织造车间袜机状态").open

End If

改成如上，还是关闭了，e.cancel 没起作用。

80790800

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：67 积分：698 威望：0 精华：0 注册：2014/4/24 19:16:00

Post By：2017/3/14 17:14:00 [显示全部帖子]

因为打开关闭的窗口中要重新绘制listview，我没有更好的其他办法

80790800

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：67 积分：698 威望：0 精华：0 注册：2014/4/24 19:16:00

Post By：2017/3/14 17:46:00 [显示全部帖子]

我要刷新的窗口中加载了TopicBar的代码

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("袜机状态表").Compute("Count(运行状态)","运行状态 = True")
Dim cnt2 As Integer = DataTables("袜机状态表").Compute("Count(运行状态)","运行状态 = False")
Page = e.Form.Controls("TopicBar1").Pages.Add("袜机状态","袜机状态")
Page.Links.Add("停止的袜机","停止的袜机(" & cnt2 & ")" )
Page.Links.Add("运行的袜机","运行的袜机(" & cnt1 & ")" )

删除后这个现象就没有了，不知道为什么。

还是有这个情况。我明天把例子上传，版主帮忙看看吧

[此贴子已经被作者于2017/3/14 17:47:13编辑过]