Foxtable(狐表)用户栏目专家坐堂 → [求助]查询筛选出指定月份的行


  共有2218人关注过本帖树形打印复制链接

主题:[求助]查询筛选出指定月份的行

帅哥哟,离线,有人找我吗?
qscwdvefb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:904 威望:0 精华:0 注册:2016/8/4 10:50:00
[求助]查询筛选出指定月份的行  发帖心情 Post By: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类型的列。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:904 威望:0 精华:0 注册:2016/8/4 10:50:00
  发帖心情 Post By:2016/8/23 16:43:00 [只看该作者]

好像日和月份数字相同的日期选不出来(例如8月8日,1月1日)图片点击可在新窗口打开查看。。。

 回到顶部
帅哥哟,离线,有人找我吗?
qscwdvefb
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:904 威望:0 精华:0 注册:2016/8/4 10:50:00
  发帖心情 Post By:2016/8/23 16:47:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
qscwdvefb
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:904 威望:0 精华:0 注册:2016/8/4 10:50:00
  发帖心情 Post By:2016/8/23 16:49:00 [只看该作者]

我要查的年份不只是今年的图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/23 16:58:00 [只看该作者]

 上传实例测试。

 回到顶部
帅哥哟,离线,有人找我吗?
qscwdvefb
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:904 威望:0 精华:0 注册:2016/8/4 10:50:00
  发帖心情 Post By:2016/8/23 17:09:00 [只看该作者]

算了,就今年吧图片点击可在新窗口打开查看应该问题不大

 回到顶部