主题：数据列

KeyDown、KeyDownEdit 事件

If e.Control = True AndAlso e.KeyCode=Keys.V AndAlso e.table.cols(e.table.colsel).name = "第一列" Then
    e.cancel = True
    vars("粘贴") = True
Else
    vars("粘贴") = False
End If

KeyPressEdit事件

If vars("粘贴") Then
    e.cancel = True
End If