主题：输入法和列表项目

开发版和商业版老是出现全角，严重干扰使用，以前用试用版没出现这种情况，我用的是全拼。
再请较一个列表项目代码：B表名称列引用A表名称列，不允许（B表名称列）手工添加

不行

这么晚了,谢谢,有空的话,第二个问题帮下忙

A表名称列有重复值

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

上述代码加上在列属性中设置不能直接输入就行了?

ok