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 深圳
......
请问老师,是不是代码的问题,该如何处理?