以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]SQLGetComboListString提取不重复的值。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75812)
|
-- 作者:huhu
-- 发布时间:2015/10/15 11:59:00
-- [求助]SQLGetComboListString提取不重复的值。
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
|
-- 作者:大红袍
-- 发布时间:2015/10/15 12:03:00
--
你客户的值重复,比如多一些空格等,就自然判断为不重复啊
|
-- 作者:大红袍
-- 发布时间:2015/10/15 12:03:00
--
或者你试试
kh.ComboList=DataTables("临时版本跟踪表").SQLGetComboListString("Trim(客户)")
|
-- 作者:huhu
-- 发布时间:2015/10/15 12:40:00
--
先不说其他客户有重复值。你帮我先看看为什么会出现2个所有客户的行。 此主题相关图片如下:所有客户.png 
|
-- 作者:大红袍
-- 发布时间:2015/10/15 14:52:00
--
代码没问题,做例子上来
|
-- 作者:大红袍
-- 发布时间:2015/10/15 14:55:00
--
加判断
If e.sender.Items.Contains("所有客户") = False Then e.Sender.Items.Insert(0,"所有客户") End If
|
-- 作者:huhu
-- 发布时间:2015/10/15 15:20:00
--
http://pan.baidu.com/s/1o6KQzrkuser:liujiyong@bdcom.com.cn pwd:liujy 在商务下单查询菜单------》客户筛选 测试。 出现2个所有客户,多个nateks。  此主题相关图片如下:nateks.png 
|
-- 作者:大红袍
-- 发布时间:2015/10/15 15:22:00
--
看看3楼。以后不要把整个项目上传上来,你单独做一个小例子发上来测试就好了。
|
-- 作者:huhu
-- 发布时间:2015/10/15 15:31:00
--
试过了,发现只出现所有客户这一个item,其他的没有显示了。
|
-- 作者:大红袍
-- 发布时间: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

|