Dim Filter As String
With e.Form.Controls("单位")
If .Value IsNot Nothing Then
Filter = "单位 = '" & .Value & "'"
End If
End With
With e.Form.Controls("经济体单元")
If Filter > "" Then
Filter = Filter & " And "
Filter = Filter & "经济体单元 = '" & .Value & "'"
如何改成从后台筛选?请教有劳各位前辈了。