Dim Filter As StringWith e.Form.Controls("ComboBox5") If .Value IsNot Nothing Then Filter = "服务包ID = '" & .Value & "'" Filter = Filter & " And [客户ID] Is Null" End IfEnd With