主题：动态列表项目

Dim s As String

Dim ss1 As List(of String) = DataTables("表A").GetUniqueValues("","第一列")

Dim ss2 As List(of String) = DataTables("表A").GetUniqueValues("","第二列")

For Each s1 As String In ss1

    If ss2.Contains(s1) = False

        s += "|" & s1

    End If

Next

For Each s2 As String In ss2

    If ss1.Contains(s2) = False

        s += "|" & s2

    End If

Next

Tables("表A").Cols("第三列").ComboList=s.trimstart("|")