以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]动态合成表达式出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140961)

--  作者:紫色幽魂
--  发布时间:2019/9/18 10:56:00
--  [求助]动态合成表达式出错
求助:这个表达式应该怎么修改
错误信息:从字符串“大类 = \'制作\'”到类型“Long”的转换无效。

Dim tb1 As String = e.Form.Controls("TextBox1").text
Dim txt As String = "\'%" & tb1 & "%\'"
Dim txt1 As String = "工程名称 Like " & txt & " Or 单项工程 Like " & txt 
Tables("无损_工程产值表_附表1").Filter = "大类 = \'制作\'" And  "\'(\'& txt1 &\')\'"

--  作者:有点蓝
--  发布时间:2019/9/18 11:19:00
--  
Tables("无损_工程产值表_附表1").Filter = "大类 = \'制作\' And  (" & txt1 & ")"