以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  e.Col.ComboList禁止输入列表以外的内容，但是粘贴确能输入，如何禁止？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192207)
--  作者：xluoping
--  发布时间：2024/6/3 11:55:00
--  e.Col.ComboList禁止输入列表以外的内容，但是粘贴确能输入，如何禁止？
e.Col.ComboList禁止输入列表以外的内容，但是粘贴确能输入不在列表的项，如何禁止？
--  作者：有点蓝
--  发布时间：2024/6/3 14:23:00
--  
datacolchanging事件

Select Case e.DataCol.Name
    Case "第一列"
        If e.NewValue > "" Then
            If ("|" & Tables("表A").Cols("第一列").ComboList & "|").contains("|" & e.NewValue & "|") = False Then
                e.Cancel = True
            End If 
        End If 
End Select

DoubleClick事件
Select Case e.Col.Name
    Case "第一列"
        e.Cancel = True
End Select