Foxtable(狐表)用户栏目专家坐堂 → comboBox模糊查询


  共有4362人关注过本帖树形打印复制链接

主题:comboBox模糊查询

美女呀,离线,留言给我吧!
sara
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
comboBox模糊查询  发帖心情 Post By:2015/1/6 16:55:00 [显示全部帖子]

我点选启动输入助手comboBox模糊查询貌似只能根据前面对情况下查询,现在我想输入任意部分,能模糊匹配,但是不知道在哪里写代码,我在ValueChanged中写代码

If e.Sender.Value<>"" Then
e.sender.ComboList = DataTables("物料信息表").GetComboListString("物料规格","[物料类型] like ‘“& e.Sender.Value &”’ ")
End If

不起作用

[此贴子已经被作者于2015-1-6 16:55:32编辑过]

 回到顶部
美女呀,离线,留言给我吧!
sara
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/1/7 8:20:00 [显示全部帖子]

起不到效果啊亲


 回到顶部
美女呀,离线,留言给我吧!
sara
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/1/7 8:21:00 [显示全部帖子]

我想代码实现,就是输入部分内容,直接下拉出来,最好是DropBox直接选中对应行

 回到顶部
美女呀,离线,留言给我吧!
sara
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/1/7 8:22:00 [显示全部帖子]

If e.Sender.Text<>"" Then
e.sender.ComboList = DataTables("物料信息表").GetComboListString("物料规格","[物料规格] like '% "& e.Sender.Text &" %' ")
End If

在TextChanged中写的,但是结果如截图,毫无反应


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150107082533.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2015-1-7 8:24:00编辑过]

 回到顶部
美女呀,离线,留言给我吧!
sara
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/1/7 8:32:00 [显示全部帖子]

我那个条件怎么写错了?能让它直接下拉出来吗

 回到顶部
美女呀,离线,留言给我吧!
sara
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/1/7 8:34:00 [显示全部帖子]

我也是没看出区别来,我就是多了个判断条件,

 回到顶部
美女呀,离线,留言给我吧!
sara
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/1/7 8:38:00 [显示全部帖子]

有啥参考资料吗

 回到顶部
美女呀,离线,留言给我吧!
sara
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/1/7 8:49:00 [显示全部帖子]

条件怎么不对了,就是有内容时候执行

 回到顶部
美女呀,离线,留言给我吧!
sara
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/1/7 9:12:00 [显示全部帖子]

我在TextChanged中输入代码如下

Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
    Dim tbl As Table = Tables("BOM信息下拉窗口_TableBOM")
    If drp.Text = "" Then '如果内容为空
        tbl.Filter = "" '显示所有客户
    Else '否则根据输入内容进行模糊筛选
        Dim txt As String = "'%" & drp.Text & "%'"
        tbl.Filter = "物料规格 Like " & txt & " Or 物料名称 Like " & txt & " "
    End If
End If

导致结果是DropBox中只能输入一个字符怎么回事


 回到顶部
美女呀,离线,留言给我吧!
sara
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/1/7 9:15:00 [显示全部帖子]

找不到原因啊亲

 回到顶部
总数 17 1 2 下一页