主题：列表项目动态增加(已上传示例)

项目属性currentchanged事件代码：
If Maintable.Name = "B表" Then
    Dim Items As String
    Dim lst As List(Of String) = DataTables("A表").GetuniqueValues("","责任人列")
    For Each Item As String In Lst
        Items = Items & "|" & Item
    Next
   Tables("B表").Cols("责任人列").ComboList = Items
End If

以上是B表引用A表，也可以引用本表本列。