以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81109)

--  作者:gcc123
--  发布时间:2016/2/18 17:37:00
--  数据列

数据表的某一列能复制但不能粘贴,代码怎么写?


--  作者:大红袍
--  发布时间:2016/2/18 17:52:00
--  

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


--  作者:gcc123
--  发布时间:2016/2/18 21:27:00
--  回复:(大红袍)KeyDown、KeyDownEdit 事件?...

可能老师没理解我的意思,比如说复制车号为浙B8S581 这一行的数据,对应的粘贴到下一行(鲁H7H127)中,我的意思是粘贴后车号鲁H7H127  不被车号浙B8S581  替换掉,例如几个车子做的同样的活,在输入数据的时候只需复制某一个车的数据,粘贴时车号不被替换掉。

 


图片点击可在新窗口打开查看此主题相关图片如下:127.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/2/18 21:36:18编辑过]

--  作者:大红袍
--  发布时间:2016/2/18 22:10:00
--  

参考例子

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


--  作者:gcc123
--  发布时间:2016/2/18 23:07:00
--  回复:(大红袍)参考例子  [upload=ta...

谢谢老师!还有一个小小的问题,如下图:设定的列   单元格里有数据或者是空白时,都不能被粘贴。

 


图片点击可在新窗口打开查看此主题相关图片如下:aaa.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:禁止粘贴.table


--  作者:大红袍
--  发布时间:2016/2/18 23:14:00
--  
看懂代码,dataColChanged事件去掉为空的判断即可。
--  作者:gcc123
--  发布时间:2016/2/18 23:21:00
--  回复:(大红袍)看懂代码,dataColChanged事件去掉为...
好的!谢谢!