以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  查找窗口提示字符串到long 无效, 这是什么问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158399)

--  作者:gv2000
--  发布时间:2020/11/18 20:30:00
--  查找窗口提示字符串到long 无效, 这是什么问题
Dim s1 As String = e.Form.Controls("类别").text
Dim ss1 As String = "类别 = "& s1 &""
Dim s2 As String = e.Form.Controls("物料种类").text
Dim ss2 As String = "物料种类 = "& s2 &""
Dim s3 As String = e.Form.Controls("物料代码").text
Dim ss3 As String = "物料代码 like "& s3 &""
Dim s4 As String = e.Form.Controls("客户").text
Dim ss4  As String = "客户 = "& s4 &""
Dim s5 As String = e.Form.Controls("客人编号").text
Dim ss5 As String = "客方编号 like "& s5 &""
Dim s6 As String = e.Form.Controls("规格型号").text
Dim ss6 As String  = "规格型号 Like "& s6 &""
Dim s7 As String = e.Form.Controls("FSC声明").text
Dim ss7  As String = "FSC声明 = "& s7 &""
Dim s8 As String = e.Form.Controls("存放仓库").text
Dim ss8 As String = "存放仓库 = "& s8 &""
Tables("物料").filter = ss1 And ss2 And ss3 And ss4 And ss5 And ss6 And ss7 And ss8
Forms("物料查找窗口").close

--  作者:有点蓝
--  发布时间:2020/11/19 8:39:00
--  
使用这种方式生成查询条件:http://www.foxtable.com/webhelp/topics/1058.htm