- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表的多列不重复值作为下拉框的值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120986)
-- 发布时间：2018/6/27 13:51:00
-- 表的多列不重复值作为下拉框的值
老师你好：
根据不同的“投标单位”，在本表中已输入的员工名称作为下拉框的值，如下：
此主题相关图片如下：9999.png
-- 发布时间：2018/6/27 14:10:00
--
参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=120967
-- 发布时间：2018/6/27 15:30:00
--
我的需求是：
遍历指定列下所有不重复的值作为下拉框的值
-- 发布时间：2018/6/27 15:51:00
--
Dim dr As DataRow = DataTables("表a").find("名称=\'名称1\'")
Dim ls As new List(Of String)
If dr IsNot Nothing Then
Dim cs() = {"颜色1", "颜色2", "颜色3"}
For Each c As String In cs
If dr(c) > "" Then
If ls.Contains(dr(c)) = False Then
ls.add(c)
End If
End If
Next
End If
Tables("表B").Cols("第一列").Combolist = String.join("|", ls.ToArray)