Dim Filter1 As String
With e.Form.Controls("ComboBox2")
If .Value IsNot Nothing Then
Filter1 = "r1000 = '" & .Value & "'"
End If
End With
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If Filter1 >"" Then
Filter1 = Filter1 & " And "
End If
Filter1 = Filter1 & "r125 >= '" & .Value & "'"
End If
End With
想自己做筛选窗口,然后希望125列中只要包含ComboBox1中填写的数据的行就会被筛选出来,请问这个该如何改?