参考:
With e.Form.Controls("项目名称") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "项目名称 like '%" & .Value & "%'" End If