主题：防止复制粘贴

测试生产安排_KeyPressEdit

If vars("粘贴") Then

    e.cancel = True

End If

测试生产安排_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

测试生产安排_KeyDown

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

测试结果, 不能直接输入没问题, 禁止键盘复制粘贴也没问题, 但若通过鼠标右键粘贴还是可以粘贴的. 请问老师有更好的办法吗? 

另建议列属性"允许直接输入"包含防止粘贴, 要不这属性不全面, 而这种防止粘贴常常要用的.

先谢谢!

回复为盼!