Foxtable(狐表)用户栏目专家坐堂 → 根据控件的输入状态,显示不同的数据


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

主题:根据控件的输入状态,显示不同的数据

帅哥哟,离线,有人找我吗?
bbgg945
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:247 积分:1634 威望:0 精华:0 注册:2016/7/20 15:46:00
根据控件的输入状态,显示不同的数据  发帖心情 Post By:2016/12/12 11:51:00 [只看该作者]

Dim lb As WinForm.ComboBox = e.Form.Controls("类别")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
If e.Form.Controls("类别").Value = Nothing
    wlmc.ComboList = DataTables("即时库存").GetComboListString("物料名称")
Else
    wlmc.ComboList = DataTables("即时库存").GetComboListString("物料名称","类别= '" & lb.Text & "'" )
End If

当类别控件内容为空时,显示所有物料名称,当类别不为空时,只显示相对应的物料名称,请教段代码应当怎样修改?

启用输入助手

现在的操作时候,有时并不能筛选到相应的数据,有时却可以


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110602 积分:562912 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/12 12:02:00 [只看该作者]

Dim lb As WinForm.ComboBox = e.Form.Controls("类别")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
If lb.Text > ""
        wlmc.ComboList = DataTables("即时库存").GetComboListString("物料名称","类别= '" & lb.Text & "'" )
Else
wlmc.ComboList = DataTables("即时库存").GetComboListString("物料名称")

End If

 回到顶部
帅哥哟,离线,有人找我吗?
bbgg945
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:247 积分:1634 威望:0 精华:0 注册:2016/7/20 15:46:00
  发帖心情 Post By:2016/12/13 2:05:00 [只看该作者]

老师的代码和我的代码用输入助手筛选数据的效果好像是一样的

两段代码有什么不同呢?

发现一个问题:打开项目,第一次选择类别的数据时,直接输入首字符,输入助手能够正确筛选出相应的数据

但以后,不论类别中有无数据,直接输入首字符,输入助手都是从全部数据中筛选出值

但用“Ctrl + Enter”键,则无此问题,能够正确筛选出与类别项相对应的数据

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:1212.zip

请老师帮忙看看问题出在哪?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110602 积分:562912 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/13 8:46:00 [只看该作者]

代码是在哪个窗口的?

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/13 9:14:00 [只看该作者]

 把代码写到你的textChanged事件去,同时把你的输入助手设置去掉

 

Dim lb As WinForm.ComboBox = e.Form.Controls("类别")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
If lb.Text > "" then
    wlmc.ComboList = DataTables("即时库存").GetComboListString("物料名称","类别 like '%" & lb.Text & "%'" )
Else
    wlmc.ComboList = DataTables("即时库存").GetComboListString("物料名称")  
End If

 回到顶部
帅哥哟,离线,有人找我吗?
bbgg945
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:247 积分:1634 威望:0 精华:0 注册:2016/7/20 15:46:00
  发帖心情 Post By:2016/12/13 10:17:00 [只看该作者]

按老师说的改了之后,物料名称ComboBox上没有下拉列表了

请问一下输入助手为什么要去掉呢?自动提示功能很好用的


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/13 13:55:00 [只看该作者]

comboBox无法做到一边输入一边提示的,如果要做这种效果,就必须用下拉窗口的方式。

 

http://www.foxtable.com/webhelp/scr/2466.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
bbgg945
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:247 积分:1634 威望:0 精华:0 注册:2016/7/20 15:46:00
  发帖心情 Post By:2016/12/13 14:13:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:我.png
图片点击可在新窗口打开查看
老师,我指的是输入助手的提示功能,这个功能很实用,有用的呀

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110602 积分:562912 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/13 14:46:00 [只看该作者]

3楼的问题测试确实是有这种情况,应该是个bug

 回到顶部
帅哥哟,离线,有人找我吗?
bbgg945
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:247 积分:1634 威望:0 精华:0 注册:2016/7/20 15:46:00
  发帖心情 Post By:2016/12/13 17:28:00 [只看该作者]

哦,这样呀

 回到顶部