主题：[求助]

AfterOpenProject事件

dim cs as string() = {"第一列", "第三列"}
Dim ls As New List(Of String)
For Each r As Row In Tables("表B").rows
    For Each c As String In cs
        If ls.Contains(r(c)) = False Then
            ls.add(r(c))
        End If
    Next
Next

Tables("表a").Cols("第一列").ComboList = String.Join("|", ls.ToArray)