主题：关闭前执行

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

 

等会我上传实例

现在有个问题想请教一下 再导入时 遇到数据格式不对的（会报错） 怎样跳过这个报错 继续导 完成后提示正确导入多少条 错误多少条 （能不能把错误的在临时表中显示出来 修改完成后再重新导入）是否有过范本或者参考 谢谢