With e.Form.Controls("签订状态") If .Value <> Nothing Then If Filter > "" Then Filter = Filter & " And " End If If .Value="已签订" Or .Value="未签订" Filter = filter & "签订状态 = '" & .Value & "'" Else Filter = filter & "签订状态 is null" End If End IfEnd With