以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Combolist去除重复选项的求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73624)
--  作者：huangfanzi
--  发布时间：2015/8/23 15:58:00
--  [求助]Combolist去除重复选项的求助
假定列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
现希望返回的结果能去掉重复值，谢谢！
--  作者：大红袍
--  发布时间：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
--  发布时间：2015/8/23 16:33:00
--  
借此帖子问另一个问题，用Fill装填的表，字段名在显示时如何通过代码更改？
例如下面一条代码：
Tables("生产计划录入辅助窗口_Table2").Fill("S elect 销售类型,合同号,简称,签订日期,交货期,牌号,规格,厚度公差_正,厚度公差_负,宽度公差_正,宽度公差_负,状态,硬度_测试力,硬度_MIN,硬度_MAX,粗糙度,力学性能_抗拉强度,力学性能_屈服强度,力学性能_伸长率,重量,其它约定 From {产品销售合同} Where [合同号] In (\'" & e.DataRow("配属合同号").Replace("|","\',\'") & "\')","ShcsErpSql",True)

以上代码生产的table中，“合同号”这个字段如何让用户看到的是“销售合同号”
--  作者：大红袍
--  发布时间：2015/8/23 16:37:00
--  
Select 销售类型 as 列1,合同号 as 列2,简称 as 列3