主题：输入法和列表项目

不会用,我只知道这段代码,但不要手工添加
'B表引用A表,可手工添加
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