Dim Filter As
String
With e.Form.Controls("cmbProduct")
If .Value IsNot
Nothing
Then
Filter = "产品 = '" & .Value & "'"
End
If
End
With
With e.Form.Controls("cmbCustomer")
If .Value IsNot
Nothing
Then
If Filter > "" Then
Filter = Filter & " And "
End
If
Filter = Filter & "客户 = '" & .Value & "'"
End
If
End
With
If Filter > "" Then
Tables("订单").Filter = Filter
End If
如果需要改为模糊筛选,"="改为Like吗?请问怎么改?谢谢