With e.Form.Controls("shoujihaoTextBox2") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If If sjmhcz.Checked Then Filter &="(iif(客户主手机号 is null, 1=2, 客户主手机号 Like '%" & .Value & "%') Or iif(第二手机号 is null, 1=2, 第二手机号 like '%" & .Value & "%') Or iif(第三手机号 is null, 1=2,第三手机号 Like '%" & .Value & "%'))" Else Filter &="(iif(客户主手机号 is null, 1=2, 客户主手机号 ='" & .Value & "') Or iif(第二手机号 is null, 1=2, 第二手机号 = '" & .Value & "') Or iif(第三手机号 is null, 1=2,第三手机号 = '" & .Value & "'))" End If End If End With
|