Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "c2" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
       
        If TryConnectHost(ip) Then
            If Network.Ping(ip) Then
                msgbox(ip)
                bscrmurl=ip
                e.ConnectionString = e.ConnectionString.Replace("cc",ip)
               
            Else
                Messagebox.Show("无法链接到服务器,请核对服务器地址")
                basemainform.close()
                Syscmd.Project.Exit(False) 

                  ‘运行到这个地方以后，为什么不强制退出，还继续运行，各位给看一下

            End If
           
        End If 

    Else
        messagebox.show("数据库路径文件不存在,请联系管理员")
    End If
End If

1、加个Return

Syscmd.Project.Exit(False)

Return

2、不应该在 BeforeConnectOuterDataSource中退出foxtable，可能也不会允许你退出。

狐狸爸爸，那如果服务器无法访问，在哪里写这个退出语句，如果BeforeConnectOuterDataSource不允许

在BeforeOpenProject事件中ping一下服务器，看看能否连通，不通则：

e.Cancel= True