| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]求表达式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70940) |
| -- 作者：ZDG -- 发布时间：2015/7/1 20:37:00 -- [求助]求表达式 Tables("订单").filter = "订单编号 Like \'%" & e.Form.controls("textbox1").Text & "%\' and 下单日期 like \'% "& e.Form.controls("datetimepicker1").text &"%\'" 不能在datetime上执行= 或 like |
| -- 作者：大红袍 -- 发布时间：2015/7/1 20:40:00 -- Tables("订单").filter = "订单编号 Like \'%" & e.Form.controls("textbox1").Text & "%\' and (Convert(下单日期,\'System.String\') like \'%" & e.Form.controls("datetimepicker1").text & "%\' or 下单日期 = #" & e.Form.controls("datetimepicker1").text & "#)" [此贴子已经被作者于2015/7/1 20:45:07编辑过]
|
| -- 作者：ZDG -- 发布时间：2015/7/1 20:42:00 -- 能不能讲讲为什么这样写 |
| -- 作者：ZDG -- 发布时间：2015/7/1 20:45:00 -- 表达式包含无效的日期常量“##)”。 |
| -- 作者：大红袍 -- 发布时间：2015/7/1 20:46:00 -- Tables("订单").filter = "订单编号 Like \'%" & e.Form.controls("textbox1").Text & "%\' and (Convert(下单日期,\'System.String\') like \'%" & e.Form.controls("datetimepicker1").text & "%\' or 下单日期 = #" & e.Form.controls("datetimepicker1").text & "#)"
或者
Tables("订单").filter = "订单编号 Like \'%" & e.Form.controls("textbox1").Text & "%\' and 下单日期 = #" & e.Form.controls("datetimepicker1").text & "#" |
| -- 作者：ZDG -- 发布时间：2015/7/1 20:57:00 -- Tables("订单").filter = "订单编号 Like \'%" & e.Form.controls("textbox1").Text & "%\' and 下单日期 = #" & e.Form.controls("datetimepicker1").text & "#" 这代码提示表达式包含无效的日期常量“##”。 |
| -- 作者：ZDG -- 发布时间：2015/7/1 20:59:00 -- Tables("订单").filter = "订单编号 Like \'%" & e.Form.controls("textbox1").Text & "%\' and (Convert(下单日期,\'System.String\') like \'%" & e.Form.controls("datetimepicker1）筛选出来空白 |
| -- 作者：ZDG -- 发布时间：2015/7/1 21:03:00 -- 麻烦红袍老师在帮忙看看 |
| -- 作者：ZDG -- 发布时间：2015/7/1 21:05:00 -- 谢谢，是我自己格式搞错了 |
| -- 作者：大红袍 -- 发布时间：2015/7/1 21:05:00 -- Dim d As Date Dim filter As String = "订单编号 Like \'%" & e.Form.controls("textbox1").Text & "%\'" If Date.TryParse(e.Form.controls("datetimepicker1").text, d) Then filter &= " And 下单日期 = #" & d & "#" Else filter &= " and Convert(下单日期,\'System.String\') like \'%" & e.Form.controls("datetimepicker1").text & "%\'" End If Tables("订单").filter = filter |