- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- BeforeLoadOuterTable发布后问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68447)
-- 发布时间：2015/5/18 11:45:00
-- 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 |
-- 发布时间：2015/5/18 11:51:00
--
Dim ipFile As String = ProjectPath & "00.txt" 发布后的 ProjectPath 是Project目录哦. 你得把文件放到Project目录里. |
-- 发布时间：2015/5/18 11:53:00
--
我知道呀，发布后文本文件就是放在项目目录的
-- 发布时间：2015/5/18 11:58:00
--
汗，突然突发奇想把两个文件放在主程序目录下，问题就解决了，就是说在发布后在BeforeLoadOuterTable中的ProjectPath就是ApplicationPath，而不是
Project目录
-- 发布时间：2015/5/18 12:00:00
--
这是不是BUG呀
-- 发布时间：2015/5/18 13:37:00
--
不会的.你调试弹出一下观察
-- 发布时间：2015/5/18 18:15:00
--
调试弹出来的这个位置的ProjectPath是空白，无论是发布前还是发布后都是空白，是漏了吗？
-- 发布时间：2015/5/18 19:14:00
--
设置一个全局变量，如 PPath
在 BeforeConnectOuterDataSource 写代码 PPath = e.ProjectPath