主题：求助选择查询

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