以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]查询筛选出指定月份的行 (http://foxtable.net/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 -- 算了,就今年吧应该问题不大 |