以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]SQLGetComboListString提取不重复的值。  (http://www.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/1o6KQzrk
user: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
图片点击可在新窗口打开查看