老师,
您好!
我想禁止一列手动输入, 只能通过Droptree选取数据. 做了以下设置
1, 列属性不允许直接输入
2, 写了以代码
测试生产安排_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
测试结果, 不能直接输入没问题, 禁止键盘复制粘贴也没问题, 但若通过鼠标右键粘贴还是可以粘贴的. 请问老师有更好的办法吗?
另建议列属性"允许直接输入"包含防止粘贴, 要不这属性不全面, 而这种防止粘贴常常要用的.
先谢谢!
回复为盼!