列表项目动态增加(已上传示例) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用擎天柱在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

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

[此贴子已经被作者于2009-4-6 16:10:04编辑过]

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