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

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

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

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

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

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

点击浏览该文件:1.txt

txt中用 SQLCommand 吧， 按钮中参考 动态管理函数

 

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()

 

 

这个代码不能用。

呵呵，那就直接用你自己的代码吧。 稍微更改一点点（这样好像速度更快些）：

一、按钮：

Dim cmd As new sqlcommand
Dim s,t As String
t = forms("窗口1").controls("b1").text
s = FileSys.ReadAllText("d:\1.txt", Encoding.Default)
cmd.commandtext= s & "'" & t & "'"
e.Form.controls("table1").Table.datasource=cmd.ExecuteReader()

 

二、 1.txt 文件里面：select * from {表A} where 第一列 =

说明你组合代码应用的能力没有进展啊，还有个Functions.Execute···你也没用上，怎么会执行呢？再说你文本中的代码这个时候是需要一个完整的可以在命令窗口执行的代码 ···呵呵。

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

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

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

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 有无看过了!

朱兄，还是不可以。