主题：读取文本中的语句不支持。

lihe  mr-725说的是对的,你看看这样 行不行?

文本为: 

Tables("窗口1_Table1").Fill("select * from {表A} where 第一列= '" & Forms("窗口1").Controls("b1").Text & "'" ,"",False)    加上文本框不能为空代码.

按钮代码:

Dim File As String = ProjectPath & "1.txt"
If Not FileSys.FileExists(File) Then
    MessageBox.Show("没有发现指定的报表代码文件, 请和您的服务商联系! ","信息提示",MessageBoxButtons.OK,MessageBoxIcon.Question)
Else
    StatusBar.Message2 = "正在执行代码, 请稍候..."
    Application.DoEvents
    Dim Code As String = FileSys.ReadAllText(File,System.Text.Encoding.Default)
    Functions.Add("Zdy",Code)   '添加
    Functions.Complie()         '编译
    Functions.Execute("Zdy")    '执行
    Functions.Remove("Zdy")     '代码执行完毕即删除函数
    StatusBar.Reset
End If

lihe60 有无看过了!

mr725你的代码是可以的,但是我的也是可以的!

  我发上来.

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

点击浏览该文件:外部执行代码.zip

 mr725用的是2.txt

 老朱用的是 1.txt