- 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=157665)
-- 发布时间：2020/10/24 20:47:00
-- [求助] 代码错误
老师，如何模糊查找，请帮忙修改一下，谢谢。
DataTables("DataLog").LoadFilter = "PartNo like \'" & e.Form.Controls("TextBox10").text & "\'"
DataTables("DataLog").Load()
-- 发布时间：2020/10/24 22:02:00
--
DataTables("DataLog").LoadFilter = "PartNo like \'%" & e.Form.Controls("TextBox10").text & "%\'"
DataTables("DataLog").Load()
-- 发布时间：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" \'数值直接使用
-- 发布时间：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
-- 发布时间：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
--
提示什么错误？
关键符号，如&前后加上必要的空格。
[此贴子已经被作者于2020/10/25 21:34:06编辑过]
-- 发布时间：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 & "#")
显示什么内容？