主题：求助选择查询

DataTables("客户资料").LoadFilter = "客户姓名 is not null"
DataTables("客户资料").Load

Dim s As WinForm.ComboBox = e.Form.Controls("cxfs")     'ComboBox组合框下拉有3行 姓名查找  手机查找  地址查找
Dim cx As WinForm.TextBox = e.Form.Controls("srcx")     '文本框输入查询类容

Select Case s.Text
    Case s.Text = "姓名查找"
        Tables("客户资料").Filter = "客户姓名 like '* " & cx.text & "*'"
    Case s.Text = "账号查找"
        Tables("客户资料").Filter = "手机号码 Like '*" & cx.text & "*' "
    Case  s.Text = "号线查找"
        Tables("客户资料").Filter = " 客户地址 Like '*" & cx.text & "*'"
    Case Else
        Return
End Select
设计一个查询方式 一个查询按钮 一个组合框 一个文本框

组合框下拉3个选项 姓名查找  手机查找  地址查找
想实现组合框 是姓名查找 在文本框输入客户姓或者姓名 实现模糊查找

      组合框 是手机查找 在文本框输入手机几位数，不全输 实现模糊查找

      组合框 是地址查找 在文本框输入某省或者某市，不全输 实现模糊查找（客户资料里面的地址是详细某某省某某市某某县）
用上面的代码实现不了，请问错在那里

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

DataTables("客户资料").LoadFilter = "客户姓名 is not null"
DataTables("客户资料").Load

Dim s As WinForm.ComboBox = e.Form.Controls("cxfs")     'ComboBox组合框下拉有3行 姓名查找  手机查找  地址查找
Dim cx As WinForm.TextBox = e.Form.Controls("srcx")     '文本框输入查询类容

Select Case s.Text
    Case "姓名查找"
        Tables("客户资料").Filter = "客户姓名 like '*" & cx.text & "*'"
    Case "账号查找"
        Tables("客户资料").Filter = "手机号码 Like '*" & cx.text & "*' "
    Case  "号线查找"
        Tables("客户资料").Filter = " 客户地址 Like '*" & cx.text & "*'"
    Case Else
        Return
End Select