呵呵，答案在这里：

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

使用版下载升级

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

正式版地址发邮件索取。

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

正式版地址发邮件索取。

怎么理解，谢谢!