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
以上代码,在发布前的项目可以正常运行,两个文本文件如果同时存在则不会出现错误提示窗口,但是发布后就无效,无论是否同时存在都会触发错误提示。是什么问题?用空白项目只是用以上代码发布测试过了还是一样,确定不是其它代码引起的
[此贴子已经被作者于2015/5/18 11:48:03编辑过]