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

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

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

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

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

没测试过，但是你不可以写在一起？

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

Else

'这里写你其余的代码
End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

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

AfterClose代码

Dim Page As WinForm.TopicPage
Dim frm = Forms("织造车间袜机状态")
If frm.Opened Then
    Dim cnt1 As Integer = DataTables("袜机状态表").Compute("Count(运行状态)","运行状态 = True")
    Dim cnt2 As Integer = DataTables("袜机状态表").Compute("Count(运行状态)","运行状态 = False")
    Page = frm.Controls("TopicBar1").Pages("袜机状态")
    Page.Links("停止的袜机").Text = "停止的袜机(" & cnt2 & ")"
    Page.Links("运行的袜机").Text = "运行的袜机(" & cnt1 & ")"
End If