主题：关闭FOXTABLE提示对话框修改

如何限制查看用户退出不保存！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:保存权限相关问题.zip

我在做编写过，不过会出现死循环，请帮忙看下面代码是否可以，如何修改，谢谢！

 

Select Case User.Name
    Case "XXX","管理员","开发者"
        Dim Result As DialogResult
        Result = MessageBox.Show("是否保存?", "关闭保存提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Syscmd.Project.Save()
        End If
        If Result = DialogResult.No Then
            Dim Result1 As DialogResult
            Result1 = MessageBox.Show("继续操作?", "操作提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question)
            If Result1 = DialogResult.Yes Then
                Syscmd.Project.Save()
            Else
                Syscmd.Project.Exit(False)
            End If
        End If
    Case Else
        Syscmd.Project.Exit(False)
End Select

  现在修改了一下代码，在按No的时候出现死循环（就在是在关闭的时候按NO时，不能正常关闭），请多多指教：

Select Case User.Name
    Case "XXX","管理员","开发者"
        Dim Result As DialogResult
        Result = MessageBox.Show("是否保存?", "关闭保存提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Syscmd.Project.Save()
        End If
        If Result = DialogResult.No Then
            Syscmd.Project.Exit(False)
        End If
    Case Else
        Syscmd.Project.Exit(False)
End Select

请把代码直接发给我！我的版本比较低，无法打开，顺便请教一下升级怎么做的，谢谢！

升级安装会不会使以前的项目无法使用，还有安装后还有没有试用

 

正式版地址发邮件索取。

怎么理解，谢谢!

 

问题处理！非常感谢！软件确实很人性化