Foxtable(狐表)用户栏目专家坐堂 → [求助]ComboBox筛选不希望出现多余的值。


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

主题:[求助]ComboBox筛选不希望出现多余的值。

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
[求助]ComboBox筛选不希望出现多余的值。  发帖心情 Post By:2014/8/20 15:07:00 [只看该作者]

在商务下单查询表,只能查询技术支持邮箱等于登录用户名的行,不符合的不加载不出现。

 

ComboBox---->selectedindexchanged代码如下:明明增加了技术支持邮箱  ='"& User.name & "'为什么还是把所有的客户名称都列出来。难道用andalso?请帮忙看看

 

If e.Sender.text<>"所有客户" Then
    Tables("商务下单查询表").Filter="客户='"& e.sender.text &"'and 状态='Published' and 技术支持邮箱  ='"& User.name & "'"
Else
    Tables("商务下单查询表").Filter="状态 = 'Published' and 技术支持邮箱  ='"& User.name & "'"
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/20 15:10:00 [只看该作者]

 呃,不应该有错,代码就是筛选user.name的行。

 

If e.Sender.text<>"所有客户" Then
    Tables("商务下单查询表").Filter = "客户='" & e.sender.text & "' And 状态='Published' and 技术支持邮箱  ='" & User.name & "'"
Else
    Tables("商务下单查询表").Filter = "状态 = 'Published' and 技术支持邮箱  ='" & User.name & "'"
End If

 


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
  发帖心情 Post By:2014/8/20 15:19:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:客户筛选.png
图片点击可在新窗口打开查看
客户筛选的下拉列表也应该只有符合技术支持邮箱和登录用户名相等的客户才对吧,而不应该把所有的客户都列出吧。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/20 15:22:00 [只看该作者]

 呃,那你就在生成ComboList的时候,加入条件限制

 

e.Form.Controls("ComboBox").ComboList = "xxxxxxx"

 

http://www.foxtable.com/help/topics/0925.htm

 

http://www.foxtable.com/help/topics/1435.htm

 

 

 


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4034 威望:0 精华:0 注册:2014/6/23 10:27:00
  发帖心情 Post By:2014/8/20 15:43:00 [只看该作者]

以下是引用有点甜在2014-8-20 15:22:00的发言:

 呃,那你就在生成ComboList的时候,加入条件限制

 

e.Form.Controls("ComboBox").ComboList = "xxxxxxx"

 

http://www.foxtable.com/help/topics/0925.htm

 

http://www.foxtable.com/help/topics/1435.htm

代码如下: 

e.Sender.ComboList=DataTables("商务下单查询表").GetComboListString("客户","[技术支持邮箱] = '' " & User.name & " ''")
e.Sender.Items.Insert(0,"所有客户")
 

怎么提示语法错误:“liujiyong”运算符后缺少操作数。

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/20 15:46:00 [只看该作者]

改一下

 

e.Sender.ComboList=DataTables("商务下单查询表").GetComboListString("客户", "[技术支持邮箱] = '" & User.name & "'")
e.Sender.Items.Insert(0,"所有客户")


 回到顶部