--
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
试了很久,发现是项目加载外部表链接这段语句出现问题,请老师看看代码有问题吗