主题：[求助]越用越少

楼主要的应该是这个：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目87.table

Dim nms() As String  = DataTables("订单").GetUniqueValues("", "客户").ToArray

你要理解代码，理解了就会觉得很容易：

Dim nms() As String = {"第一列","第二列","第三列","第四列"}
Select Case e.Col.name
    Case "第一列","第二列","第三列","第四列"
        Dim lst As List(of String)  = DataTables("表B").GetUniqueValues("", "第一列")
         For Each nm As String In nms
            If e.Col.Name <> nm Then
                If lst.Contains(e.Row(nm)) Then
                    lst.Remove(e.Row(nm))
                End If
            End If
        Next
        e.col.ComboList = String.Join("|",lst.ToArray)
End Select