以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  指定列表多列显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108428)
--  作者：有点甜
--  发布时间：2017/10/22 22:21:00
--  
\'不重复值下拉框
If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Col.Name = "项目编码" Then
        Dim Arys As List(Of String())
        Arys = DataTables("合同清单").GetValues("项目编码|项目名称|项目特征","[专业编号] = \'" & e.Row("专业编号") & "\'") \',"[_SortKey]")
        Dim str As String = ""
        For Each Ary As String() In Arys
            str &= Ary(0) & "," & Ary(1) & "," & Ary(2) & "|"
        Next
        e.Col.Combolist = str.trim("|")
    End If
End If
--  作者：有点甜
--  发布时间：2017/10/23 9:08:00
--  

1、不能用|显示 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:excel导入1022 (1).foxdb
--  作者：有点甜
--  发布时间：2017/10/23 10:39:00
--  

1、去掉空格？

 

            e.Table.Rows(i)("项目编码") = s(0).trim
            e.Table.Rows(i)("项目名称") = s(1).trim
            e.Table.Rows(i)("项目特征") = s(2).trim

 

2、截图举例说明要做的效果。
--  作者：有点甜
--  发布时间：2017/10/23 11:54:00
--  
 回复7楼，【项目编码】要改成备注列。
--  作者：有点甜
--  发布时间：2017/10/23 13:55:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:excel导入1023.foxdb
--  作者：有点甜
--  发布时间：2017/10/23 14:45:00
--  
下载信息  [文件大小：632.0 KB  下载次数：3]
图片点击可在新窗口打开查看点击浏览该文件:excel导入1022.foxdb