- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]时间筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170340)
-- 发布时间：2021/7/22 14:34:00
-- [求助]时间筛选
此主题相关图片如下：qq图片20210722141057.png
With e.Form.Controls("NF")
\'在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If
.Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "年份 = \'"
& .value & "\'"
End If
End With
With e.Form.Controls("YF1") \'在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "月份 >= \'" & .value & "\' and 月份 <= 12"
End If
End With
With e.Form.Controls("NF1") \'在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " or "
End If
Filter = Filter & "年份 = \'" & .value & "\'"
End If
End With
With e.Form.Controls("YF1") \'在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "月份 <= \'" & .value & "\'"
End If
End With
With e.Form.Controls("NF") \'在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " or "
End If
Filter = Filter & "年份 > \'" & .value & "\'"
End If
End With
With e.Form.Controls("NF1") \'在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " and "
End If
Filter = Filter & "年份 < \'" & .value & "\'"
End If
End With
-- 发布时间：2021/7/22 14:42:00
--
4个输入框是不是必须都填写？
-- 发布时间：2021/7/22 15:55:00
--
都必须要填写
-- 发布时间：2021/7/22 16:03:00
--