
此主题相关图片如下:qq截图20170807093735.png


此主题相关图片如下:qq截图20170807082619.png

经查出现错误原因是在项目设置外部接事件中的代码影响,请老师看看我段代码是否有问题,谢谢
Dim ipFile As String = e.ProjectPath & "ip.txt"
Dim ip As String = FileSys.ReadAllText(ipFile)
If e.Name = "ljc_new" Then
e.C& ip &""
Else
e.HideSplashForm = True
MessageBox.show("内部数据库名称设置出错,请联系系统开发人员处理!","元捷信息温馨提示")
Syscmd.Project.Exit(True)
End If