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

程斑的这个估计离实用还有点差距，因为大部分的COMBOLIST取自于本列，如果本列为空，那下拉列表岂不是为空？

尽管程版主如是说，我还是倾向于我先前的意见。
我用笨办法将5楼的代码修改了一下，主要我是想让"表B""责任人"列COMBOLIST取自于"表A""责任人"列，如果在"表B""责任人"列输入一个COMBOLIST中不存在的数据后，则COMBOLIST中自动添加该条数据。现在有个问题：怎样排除重复数据？

If Maintable.Name = "表B" Then
    Dim Items1, Items2 As String
    Dim lst1 As List(Of String) = DataTables("表A").GetuniqueValues("","责任人")
    Dim lst2 As List(Of String) = DataTables("表B").GetuniqueValues("","责任人")
    For Each Item As String In Lst1
        Items1 = Item1 & "|" & Item
    Next
    For Each Item As String In Lst2
        Items2 = Items2 & "|" & Item
    Next
   
   Tables("表B").Cols("责任人").ComboList = Items1 & Items2
End If

Items1 & Items2 连在一起将会有重复。

测试了，行不通，在表Ｂ中输入的数据，不能自动添加到ComboList中。
而且发生了一个奇怪的现象：在表B中手动输入一个数（全角的），则自动添加一个，有点怪。比如输入５，则显示的是５５。

实话实说 可能未理解我的要求。
don的符合我所需。

THANKS!