Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Combolist去除重复选项的求助


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

主题：[求助]Combolist去除重复选项的求助
帅哥哟，离线，有人找我吗？
huangfanzi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00 		[求助]Combolist去除重复选项的求助  发帖心情 Post By：2015/8/23 15:58:00 [只看该作者]

假定列A中有以下三条记录：
列A
A|B
C|D
A|C
现有以下PrepareEdit代码：
Select Case e.Col.Name
Case "列A"
e.Col.Combolist = e.Table.DataTable.GetComboListString("列A")
End Select
选第四条记录列A格子时由于以上代码返回的结果会在列A中生成以下内容的下拉：
A
B
C
D
A
C
现希望返回的结果能去掉重复值，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim str() As String = e.Table.DataTable.GetComboListString("列A").split("|")
Dim nstr As String = "|"
For Each s As String In str
    If nstr.Contains("|" & s & "|") = False Then
        nstr &= s & "|"
    End If
    e.Col.Combolist = nstr.tim("|")
Next

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


加好友 发短信
等级：五尾狐 帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00 		  发帖心情 Post By：2015/8/23 16:33:00 [只看该作者]

借此帖子问另一个问题，用Fill装填的表，字段名在显示时如何通过代码更改？
例如下面一条代码：
Tables("生产计划录入辅助窗口_Table2").Fill("S elect 销售类型,合同号,简称,签订日期,交货期,牌号,规格,厚度公差_正,厚度公差_负,宽度公差_正,宽度公差_负,状态,硬度_测试力,硬度_MIN,硬度_MAX,粗糙度,力学性能_抗拉强度,力学性能_屈服强度,力学性能_伸长率,重量,其它约定 From {产品销售合同} Where [合同号] In ('" & e.DataRow("配属合同号").Replace("|","','") & "')","ShcsErpSql",True)

以上代码生产的table中，“合同号”这个字段如何让用户看到的是“销售合同号”
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Select 销售类型 as 列1,合同号 as 列2,简称 as 列3

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询