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

1.txt下载后保存在D盘。

求助：运行表A窗口1，读取D盘1.txt，变量不能转换为参数。

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

点击浏览该文件:管理项目10.table

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

点击浏览该文件:1.txt

 

Dim Code As string
Code = "Dim Val1 As Integer = 1" & vbcrlf
Code = Code & "Dim Val2 As Integer = 2" & vbcrlf
Code = Code & "Dim Sum As Integer = Val1 + Val2" & vbcrlf
Code = Code & "Return Sum"
Functions.Add("Sum",Code)
Functions.Complie()

 

 

这个代码不能用。

这个代码放在内部函数里，窗口关闭有提示。

你的窗口关闭没有提示吗？

这个代码你测试过了吗，如果没有测试，毛 主 席说过“没有调查就没有发言权”。

朱兄，还是不可以。

文本中的代码为

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

此主题相关图片如下：未命名.gif

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

mr725的代码执行起来没有问题，但不通用。