以文本方式查看主题

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

--  作者:qscwdvefb
--  发布时间:2016/8/23 16:15:00
--  [求助]查询筛选出指定月份的行
在“查询”按钮里面想要根据datelongtime类型筛选出月份,那在这段代码里面
With e.Form.Controls("checkedcombobox2")
    If .Value IsNot Nothing Then
       If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4411] = \'" & .Value & "\'"
    End If
End With
应该怎么修改?
其中checkedcombobox2是填月份,F4411是表里面时间为datelongtime类型的列。

--  作者:大红袍
--  发布时间:2016/8/23 16:21:00
--  
With e.Form.Controls("checkedcombobox2")
    If .Value IsNot Nothing Then
       If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        Dim d As Date = new Date(Date.Today.Year, .Value, 1)
        filter1 = filter1 & "[F4411] >= #" & d & "# and [F4411] < #" & d.AddMonths(1) & "#"
    End If
End With

--  作者:qscwdvefb
--  发布时间:2016/8/23 16:43:00
--  
好像日和月份数字相同的日期选不出来(例如8月8日,1月1日)图片点击可在新窗口打开查看。。。
--  作者:qscwdvefb
--  发布时间:2016/8/23 16:47:00
--  
以下是引用qscwdvefb在2016/8/23 16:43:00的发言:
好像日和月份数字相同的日期选不出来(例如8月8日,1月1日)图片点击可在新窗口打开查看。。。噢,我看错了。。。


--  作者:qscwdvefb
--  发布时间:2016/8/23 16:49:00
--  
我要查的年份不只是今年的图片点击可在新窗口打开查看
--  作者:大红袍
--  发布时间:2016/8/23 16:58:00
--  
 上传实例测试。
--  作者:qscwdvefb
--  发布时间:2016/8/23 17:09:00
--  
算了,就今年吧图片点击可在新窗口打开查看应该问题不大