主题：外部数据源不存在时，如何强制退出？

下面的代码写在beforeopenproject事件

 

If FileSys.FileExists("sj.mdb") Then
    Messagebox.Show("文件已经存在!","提示")
Else
    Messagebox.Show("文件不存在或已经被删除!","提示")
    basemainform.close()
End If

  弹出对话框，这样写

 

MessageBox.Show("内容", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)

 

 登陆以后，出错，是登陆以后代码的问题。

 

代码有写在 BeforeOpenProject 事件么？

 那执行有什么错？

 

问题是不知道你的是什么问题好吧？直接那样写代码，有什么错？

 不可能出现你这种情况。如果文件不存在，就会弹出提示，点击确定以后，就关闭系统了。

 抱歉，测试了一下，代码这样写

 

If FileSys.FileExists("sj.mdb") Then
    MessageBox.Show("文件已经存在!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)
Else
    MessageBox.Show("文件不存在或已经被删除!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)
    Syscmd.Project.Exit(False)
End If

看16楼