关闭FOXTABLE提示对话框修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关闭FOXTABLE提示对话框修改

共有13261人关注过本帖树形打印复制链接主题：关闭FOXTABLE提示对话框修改

sanyotaiyo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：134 积分：1398 威望：0 精华：0 注册：2011/9/14 7:27:00

关闭FOXTABLE提示对话框修改 发帖心情

Post By：2011/10/20 10:15:00 [只看该作者]

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:保存权限相关问题.zip

[此贴子已经被作者于2011-10-20 10:15:42编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/20 10:19:00 [只看该作者]

呵呵，答案在这里：

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

sanyotaiyo

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：134 积分：1398 威望：0 精华：0 注册：2011/9/14 7:27:00

Post By：2011/10/20 11:10:00 [只看该作者]

图片点击可在新窗口打开查看我在做编写过，不过会出现死循环，请帮忙看下面代码是否可以，如何修改，谢谢！

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