主题：BeforeLoadOuterTable发布后问题

Dim ipFile As String = ProjectPath & "00.txt"
Dim opFile As String = ProjectPath & "01.txt"
Select Case e.Dat aTableName
    Case "表A","表B"
        If Filesys.FileExists(ipFile) = False OrElse FileSys.FileExists(opFile) = False Then
            e.HideSplashForm = True
            MessageBox.Show("錯誤")
        End If
    Case Else
        e.Cancel = True
        e.SelectString = "S elect * F rom {" & e.DataTableName & "} W here [_Identify] Is Null"
End S elect

以上代码，在发布前的项目可以正常运行，两个文本文件如果同时存在则不会出现错误提示窗口，但是发布后就无效，无论是否同时存在都会触发错误提示。是什么问题？用空白项目只是用以上代码发布测试过了还是一样，确定不是其它代码引起的

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

Dim ipFile As String = ProjectPath & "00.txt" Dim opFile As String = ProjectPath & "01.txt" 发布后的 ProjectPath  是Project目录哦.   你得把文件放到Project目录里.

我知道呀，发布后文本文件就是放在项目目录的

汗，突然突发奇想把两个文件放在主程序目录下，问题就解决了，就是说在发布后在BeforeLoadOuterTable中的ProjectPath就是ApplicationPath，而不是
Project目录

这是不是BUG呀

不会的.你调试弹出一下观察

调试弹出来的这个位置的ProjectPath是空白，无论是发布前还是发布后都是空白，是漏了吗？

 设置一个全局变量，如 PPath

 

 在 BeforeConnectOuterDataSource 写代码 PPath = e.ProjectPath