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

文本中的代码为

cmd.CommandText="select * from {表A} where 第一列='" e.form.controls("b1").text & "'"

其他代码是用照像机拍了个葫芦。

Dim cmd As New SQLCommand

Dim File As String = "d:\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

一、4楼代码是可以的，我测试过了呀！

二、要用Functions（如blackzhu 8楼下办断的，他的文本中的代码不对的），我5楼说过，文本中的代码必须是可以在命令窗口可执行的一个完整的代码。

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

  我发上来.

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

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

 mr725用的是2.txt

 老朱用的是 1.txt

以下是引用blackzhu在2012-11-19 12:07:00的发言：

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

 

  我发上来.

 

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

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

 

 mr725用的是2.txt

 老朱用的是 1.txt

没错，你老弟的是可以，我看错了··· 抱歉啊。

朱兄的代码，我执行有问题，你们执行的没有问题吗？

没什么不通用吧，说说你的想法吧，怎么个不通用呢？