以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助】表达式包含无效的日期常量“##”。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89582)

--  作者:kyh
--  发布时间:2016/8/25 2:01:00
--  【求助】表达式包含无效的日期常量“##”。
Dim qs As WinForm.DateTimePicker = e.Form.Controls("订单日期起始")
Dim zz As WinForm.DateTimePicker = e.Form.Controls("订单日期终止")
Tables("订单主表").Filter = "[日期] >= #" & qs.Value & "# And [日期] <= #" & zz.Value & "#"

请问各位大师,这段代码错在哪里?
老是提示我   “  表达式包含无效的日期常量“##”。  ”
提示了过后又能正常运行。

Dim qs As WinForm.DateTimePicker = e.Form.Controls("订单日期起始")
Dim zz As WinForm.DateTimePicker = e.Form.Controls("订单日期终止")
Tables("订单主表").Filter = "[日期] >= #" & qs.Value & "#"
把后面zz.Value的代码删除过后又不提示。

Dim qs As WinForm.DateTimePicker = e.Form.Controls("订单日期起始")
Dim zz As WinForm.DateTimePicker = e.Form.Controls("订单日期终止")
Tables("订单主表").Filter = "[日期] >= #" & qs.Value & "# And [日期] <= #08/25/2016#"
这个样子它也能正常运行。

到底问题出在哪儿呢?急等!!!


--  作者:Hyphen
--  发布时间:2016/8/25 8:45:00
--  
应该是日期格式的问题,弹出内容看看
msgbox("[日期] >= #" & qs.Value & "# And [日期] <= #" & zz.Value & "#")
--  作者:kyh
--  发布时间:2016/8/25 11:53:00
--  
谢谢,已解决,原来是没取到值