主题：[求助]越用越少

麻烦改一下代码,通用型的,即:

表A的"第一列，第二列，第三列，第四列"引用 表B的第一列 作为列表；

如果列表内容已被表Ａ某列选中，则表Ａ其它列的列表不出现该内容。

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

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