以文本方式查看主题

-  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=50218)

--  作者:wealthwind
--  发布时间:2014/5/1 21:48:00
--  关于日期筛选,无数据加载时出现的错误。。
关于日期筛选,无数据加载时出现的错误。。  发帖心情
此主题相关图片如下:2014511853559620.png
按此在新窗口浏览图片


筛选菜单的
  • PressedChanged代码是
If e.ToggleButton.Pressed = True Then
    Tables("订单").Filter = "[日期] >= #" & RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框1").value & "# And [日期] <= #" & RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框2").value & "#"
Else
    Tables("订单").Filter = ""
End If


--  作者:有点酸
--  发布时间:2014/5/2 9:57:00
--  

你先显示一下合成的是什么字符串:

 

Messagebox.show("[日期] >= #" & RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框1").value & "# And [日期] <= #" & RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框2").value & "#")


--  作者:lsy
--  发布时间:2014/5/2 10:02:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=50214
--  作者:736642114
--  发布时间:2016/10/11 11:57:00
--  
Tables("订单").Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"