主题：表的多列不重复值作为下拉框的值

参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=120967

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)