主题：[求助]夸表录入不重复值

表A事件PrepareEdit中。

例如：

If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "第一列" Then 
       dim s as string = e.table.DataTable.GetComboListString("第一列")

if s > "" then
        e.Col.Combolist = DataTables("表B").GetComboListString("第一列", "[第一列] not in('" & s.replace("|","','") & "'") 

else

e.Col.Combolist = DataTables("表B").GetComboListString("第一列") 

end if
    End If
End If