Dim Filter As String
With e.Form.Controls("DropBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "地点一 like '%" & .Value & "%' Or 地点二 like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("NumericComboBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "年度 like '%" & .Value & "%'"
End If
End With
If Filter > "" Then
Tables("窗口_Table1").Filter = Filter
End If
这段筛选代码本想实现如下作用：
举例：把地点一或地点二是“深圳”，年度是2018的行筛查出来，但发现有一个年度是2017的也出来了，
变成：年度 地点1 地点2
2017 深圳
2018 深圳
2018 深圳
......
请问老师，是不是代码的问题，该如何处理？
加好友 
发短信
Post By：2018/9/18 9:12:00 [显示全部帖子]
