以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 代码错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157665)

--  作者:sanny
--  发布时间:2020/10/24 20:47:00
--  [求助] 代码错误

老师,如何模糊查找,请帮忙修改一下,谢谢。

DataTables("DataLog").LoadFilter = "PartNo like \'" & e.Form.Controls("TextBox10").text & "\'"

DataTables("DataLog").Load()

--  作者:linyunu
--  发布时间:2020/10/24 22:02:00
--  
DataTables("DataLog").LoadFilter = "PartNo like \'%" & e.Form.Controls("TextBox10").text & "%\'"

DataTables("DataLog").Load()

--  作者:sanny
--  发布时间:2020/10/25 9:30:00
--  
谢谢,帮忙看以下的黄色的也不对了。

Dim t5 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker5")

DataTables("DataLog").LoadFilter = "PartNo like \'%" & e.Form.Controls("TextBox10").text & "%\' and AddDate >=\' #" & t5.Value & "#\'"


DataTables("DataLog").Load()

--  作者:有点蓝
--  发布时间:2020/10/25 20:38:00
--  
参考:http://www.foxtable.com/webhelp/topics/1284.htm

表达式中的日期用符号#括起来,数值则不需要任何符号括起来,这些和代码中的格式是一样的,唯一不同的是字符串用单引号括起来。

例如:

Tables("订单").Filter = "[产品] = \'PD01\'"  \'字符用单引号括起来
Tables("订单").Filter = "[日期] = #3/17/1999#"  \'日期用#括起来
Tables("订单").Filter = "[折扣] = 0.1"  \'数值直接使用


--  作者:sanny
--  发布时间:2020/10/25 20:49:00
--  
老师,帮忙看一下,谢谢。


DataTables("DataLog").LoadFilter = "PartNo like \'%" & e.Form.Controls("TextBox10").text & "%\' and PartDesc like \'%" & e.Form.Controls("TextBox11").text & "%\'and Supplier like \'%" & e.Form.Controls("TextBox12").text & "%\'and AddDate >= # e.Form.Controls("DateTimePicker5").value # "

--  作者:有点蓝
--  发布时间:2020/10/25 20:51:00
--  
麻烦先看3遍:http://www.foxtable.com/webhelp/topics/1284.htm
--  作者:sanny
--  发布时间:2020/10/25 21:04:00
--  
不好意思,老师,改成以下的还是不对

DataTables("DataLog").LoadFilter = "PartNo like \'%" & e.Form.Controls("TextBox10").text & "%\' and PartDesc like \'%" & e.Form.Controls("TextBox11").text & "%\'and Supplier like \'%" & e.Form.Controls("TextBox12").text & "%\'and AddDate >= #"&e.Form.Controls("DateTimePicker5").value &"#"

--  作者:有点蓝
--  发布时间:2020/10/25 21:34:00
--  
提示什么错误?

DataTables("DataLog").LoadFilter = "PartNo like \'%" & e.Form.Controls("TextBox10").text & "%\' and PartDesc like \'%" & e.Form.Controls("TextBox11").text & "%\' and Supplier like \'%" & e.Form.Controls("TextBox12").text & "%\' and AddDate >= #" & e.Form.Controls("DateTimePicker5").value & "#"

关键符号,如&前后加上必要的空格。
[此贴子已经被作者于2020/10/25 21:34:06编辑过]

--  作者:sanny
--  发布时间:2020/10/26 8:04:00
--  
你好,出现如下问题
图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/10/26 8:35:00
--  
msgbox("PartNo like \'%" & e.Form.Controls("TextBox10").text & "%\' and PartDesc like \'%" & e.Form.Controls("TextBox11").text & "%\' and Supplier like \'%" & e.Form.Controls("TextBox12").text & "%\' and AddDate >= #" & e.Form.Controls("DateTimePicker5").value & "#")

显示什么内容?