此主题相关图片如下：qq图片20210722141057.png
我的时间跨度如2019.3--2021.7，下面这样写对吗
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
加好友 
发短信
Post By：2021/7/22 14:34:00 [只看该作者]
