以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125887)
--  作者：蓝蚂蚁
--  发布时间：2018/10/9 10:59:00
--  筛选求助
有日期类型的列，例如2017-01-02  窗口TextBox控件输入年份和月份，如201701 ，则能筛选出所有2017年1月份的数据，不知道代码如何写？
--  作者：有点甜
--  发布时间：2018/10/9 11:52:00
--  

参考代码

 

Dim str As String = "201701"
Dim d As Date = new Date(str.SubString(0,4), str.SubString(4,2), 1)
Dim filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
msgbox(filter)