- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助选择查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146162)
-- 发布时间：2020/2/17 22:39:00
-- 求助选择查询
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
-- 发布时间：2020/2/17 23:04:00
--
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