主题：关闭前执行

在主界面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