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

以下是引用擎天柱在2009-4-6 9:15:00的发言：
程斑的这个估计离实用还有点差距，因为大部分的COMBOLIST取自于本列，如果本列为空，那下拉列表岂不是为空？

以下是引用程兴刚在2009-4-6 11:33:00的发言：

             呵呵，那是因为您双手擎天，腾不出手来，没动手先下结论！

以下是引用擎天柱在2009-4-6 14:55:00的发言：

尽管程版主如是说，我还是倾向于我先前的意见。
我用笨办法将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

以下是引用实话实说在2009-4-6 15:13:00的发言：
你测试一下，这个代码本身就排除了重复值

以下是引用擎天柱在2009-4-6 14:55:00的发言：

尽管程版主如是说，我还是倾向于我先前的意见。
我用笨办法将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

以下是引用don在2009-4-6 16:04:00的发言：

If Maintable.Name = "表B" Then
    Dim Item,Ls As String
    Dim lst1 As List(Of String) = DataTables("表A").GetuniqueValues("","责任人")
    Dim lst2 As List(Of String) = DataTables("表B").GetuniqueValues("","责任人")
    For Each Item  In Lst1
        Ls = Ls & "|" & Item
    Next
    For Each Item  In Lst2
        if Ls.Indexof(Item)<-1 then
            Ls = Ls & "|" & Item
        End if
    Next  
   Tables("表B").Cols("责任人").ComboList = Ls
End If