在主界面beforeclose中有这么一段代码 

If e.Form.Controls("Panel1").Enabled = True Then
    Dim Result As DialogResult
    Result = MessageBox.Show("请勿强制关闭!请点击菜单中的【安全退出】按钮关闭系统!", "温馨提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    If Result = DialogResult.OK Then
        e.Cancel= True
    End If
End If

为什么 我在其他界面按关闭 老是会触发这一段代码 老是给提示 但是提示之后又可以关闭 （关闭当前界面返回主界面）

安全退出的事件代码：

Dim Result As DialogResult
Result = MessageBox.Show("确定要退出系统吗?", "确认提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
If Result = DialogResult.OK Then
    e.Form.Controls("Panel1").Enabled = False
    Dim dr As DataRow
    Dim hyzh As String =e.Form.Controls("姓名").Text
    hyzh = hyzh.Trim(" ", "登","录","账","号",":","[","]")
    dr = DataTables("账户管理").Find("[用户账号] = \'" & hyzh & "\' ")
    dr("用户状态") = False
    Forms("主界面").Close()
    Syscmd.Project.Exit(True)
Else
    e.Form.Controls("Panel1").Enabled = True
End If

执行下面这段代码，不会触发上面那段代码。

有问题，上传一个小例子（单独做一个简单例子，不要上传整个项目）

哪段代码？

执行安全退出不会触发 但是在不是主界面的任何窗口单击关闭都会触发beforeclose事件

要不你这样写

SystemReady = False

Forms("主界面").Close()
Syscmd.Project.Exit(True)

SystemReady = True

回复7楼，你做例子上来吧。要用vba读写导入的方式，如

换成二位数组。

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0