| 以文本方式查看主题 - 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 -- 谢谢，已解决，原来是没取到值 |