主题：[求助]模糊查询加条件判断不执行

老师计划根据文本框中内容并依据单选按钮条件进行模糊查询，以下“点击模糊查询”代码只按照全部条件进行查询：

 
此主题相关图片如下：6.png

Dim Filter As String
Dim tbl As Table = Tables("客户")
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Dim txt1 As String = .Value
        txt1 = "'%" & txt1 & "%'"
        Filter = "客户编号 Like " & txt1 & " Or 客户名称 Like " & txt1
        If e.Form.Controls("RadioButton1").Checked = True Then '如果选择正常客户
            Filter = Filter & " And " & "停用 = False "
        End If
        If e.Form.Controls("RadioButton2").Checked = True Then '如果选择停用客户
            Filter = Filter & " And " & "停用 = True "
        End If
        If e.Form.Controls("RadioButton3").Checked = True Then '如果选择全部客户
            Filter = Filter
        End If
    Else
        If e.Form.Controls("RadioButton1").Checked = True Then '如果选择正常客户
            Filter = "停用 = False "
        End If
        If e.Form.Controls("RadioButton2").Checked = True Then '如果选择停用客户
            Filter = "停用 = True "
        End If
        If e.Form.Controls("RadioButton3").Checked = True Then '如果选择全部客户
            Filter = Filter
        End If
    End If
End With
tbl.DataTable.loadFilter = Filter
tbl.DataTable.loadPage = 0
tbl.DataTable.load
e.Form.Controls("Label7").text = "数据状态：筛选"
Functions.Execute("客户窗口页面统计")

麻烦帮忙改一下，谢谢！

文本框无内容，可以根据单选按钮执行。有内容无法执行。