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

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

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

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

呵呵，答案在这里：

http://www.foxtable.com/help/topics/0668.htm

 

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

 

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

你的设计有问题，考虑得太复杂了，其实很简单，看这个文件，你用张三登陆，退出的时候就不会提示保存。

 

 

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

点击浏览该文件:管理项目148.rar

  现在修改了一下代码，在按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

看4楼我做的示例文件

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

使用版下载升级

 

http://www.foxtable.com/download/foxtable2011.zip

 

正式版地址发邮件索取。

 

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

 

正式版地址发邮件索取。

怎么理解，谢谢!