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#"
这个样子它也能正常运行。
到底问题出在哪儿呢？急等！！！
加好友 
发短信
Post By：2016/8/25 2:01:00 [只看该作者]
Post By：2016/8/25 8:45:00 [只看该作者]
