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