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 NextNext
Tables("表a").Cols("第一列").ComboList = String.Join("|", ls.ToArray)