Foxtable(狐表)用户栏目专家坐堂 → [求助]SkipSave的用法


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

主题:[求助]SkipSave的用法

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


加好友 发短信
等级:童狐 帖子:255 积分:2359 威望:0 精华:0 注册:2011/4/25 9:23:00
[求助]SkipSave的用法  发帖心情 Post By:2015/7/27 15:16:00 [只看该作者]

我在项目的beforecloseproject事件中设置了如下代码,希望当我选择对话框的“是”时,系统能直接退出
Dim n As Integer = 0
Dim Result As DialogResult
For Each dt As DataTable In DataTables
    If dt.HasChanges Then        
        Result = Messagebox.Show("数据未保存,确定要退出系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.No Then '如果用户选择否
            n = n + 1
            e.Cancel = True '
            Exit For
        Else
            n = n + 1
            Exit For
            e.skipsave = True
            Return
        End If
    End If
Next

If n <= 0 Then
    Result = Messagebox.Show("确定要退出系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.No Then '如果用户选择否
        e.Cancel = True '
    End If
End If

但为何系统在我点击“是”之后,仍弹出系统的退出提示窗口呢(如下图)?代码需要如何修改?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图01.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:qq截图02.jpg
图片点击可在新窗口打开查看




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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/27 15:19:00 [只看该作者]

Exit For 写在后面,不然不会执行 e.skipsave = True

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


加好友 发短信
等级:童狐 帖子:255 积分:2359 威望:0 精华:0 注册:2011/4/25 9:23:00
  发帖心情 Post By:2015/7/27 15:29:00 [只看该作者]

确实是这个问题,谢谢

 回到顶部