Foxtable(狐表)用户栏目专家坐堂 → 返回窗口问题


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

主题:返回窗口问题

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
返回窗口问题  发帖心情 Post By:2018/4/29 22:48:00 [只看该作者]

我想在退出“物品申报”窗口时把没有保存的记录确认保存一下,下面的代码写在窗口事件的AfterClose事件中,点击关闭窗口后如果选择返回保存,做出选择,不知怎么能返回原来的窗口。

 

If Tables("物品申报").Current.Locked = False Then
    Dim Result As DialogResult
    Result = MessageBox.Show("您填写的记录没有保存,请您要返回保存所填写的记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Forms("物品申报").Reject()
    Else
        Tables("物品申报").Current.Delete
    End If
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/30 15:55:00 [只看该作者]

beforeClose事件

 

If Tables("物品申报").Current.Locked = False Then
    Dim Result As DialogResult
    Result = MessageBox.Show("您填写的记录没有保存,请您要返回保存所填写的记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        e.cancel = True
    Else
        Tables("物品申报").Current.Delete
    End If
End If


 回到顶部