Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]SQLGetComboListString提取不重复的值。


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

主题：[求助]SQLGetComboListString提取不重复的值。
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		[求助]SQLGetComboListString提取不重复的值。  发帖心情 Post By：2015/10/15 11:59:00 [只看该作者]

sqlgetcomboliststring不是从后台所有数据提取指定列不重复的值吗？为什么我的会有重复值啊。请看看这代码

enter代码：
Dim kh As WinForm.ComboBox = e.Form.Controls("客户筛选")
If User.Name.Trim() = "liujiyong@bdcom.com.cn"  Or user.Group = "总部商务"  Then
    kh.ComboList=DataTables("临时版本跟踪表").SQLGetComboListString("客户")
    e.Sender.Items.Insert(0,"所有客户")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/15 12:03:00 [只看该作者]

你客户的值重复，比如多一些空格等，就自然判断为不重复啊

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/15 12:03:00 [只看该作者]

或者你试试

 

kh.ComboList=DataTables("临时版本跟踪表").SQLGetComboListString("Trim(客户)")
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/15 12:40:00 [只看该作者]

先不说其他客户有重复值。你帮我先看看为什么会出现2个所有客户的行。

图片点击可在新窗口打开查看此主题相关图片如下：所有客户.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/15 14:52:00 [只看该作者]

代码没问题，做例子上来
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/15 14:55:00 [只看该作者]

加判断

 

If e.sender.Items.Contains("所有客户") = False Then
   
    e.Sender.Items.Insert(0,"所有客户")
   
End If
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/15 15:20:00 [只看该作者]

http://pan.baidu.com/s/1o6KQzrk
user：liujiyong@bdcom.com.cn
pwd:liujy
在商务下单查询菜单------》客户筛选   测试。
出现2个所有客户，多个nateks。

图片点击可在新窗口打开查看此主题相关图片如下：nateks.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/15 15:22:00 [只看该作者]

看看3楼。以后不要把整个项目上传上来，你单独做一个小例子发上来测试就好了。

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2015/10/15 15:31:00 [只看该作者]

试过了，发现只出现所有客户这一个item，其他的没有显示了。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/15 15:59:00 [只看该作者]

 代码没有错，你数据有问题

 

 Dim kh As WinForm.ComboBox = e.Form.Controls("客户筛选")
If User.Name.Trim() = "liujiyong@bdcom.com.cn"  Or user.Group = "总部商务"  Then
    kh.ComboList=DataTables("临时版本跟踪表").SQLGetComboListString("rtrim(ltrim(客户))")
    If e.sender.Items.Contains("所有客户") = False Then
       
        e.Sender.Items.Insert(0,"所有客户")
       
    End If
   
End If

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20151015155743.jpg
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询