以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  我想设置电话某列不能复制应该怎么做  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104273)
--  作者：zoudezhao
--  发布时间：2017/7/26 15:27:00
--  我想设置电话某列不能复制应该怎么做
整表不可复制用起来很麻烦连客户编号都不能复制如果我只想电话列不能复制应该怎么做，我想设置电话列不能复制应该怎么做
--  作者：有点甜
--  发布时间：2017/7/26 16:25:00
--  

keydown事件

 

If e.Table.Cols(e.Table.Colsel).name = "第一列" Then
    If e.control = True AndAlso e.keycode = keys.c Then
        e.cancel = True
    End If
End If

 

 
--  作者：wyz20130512
--  发布时间：2017/7/26 18:22:00
--  
加一句：ClipBoard.Clear

If e.Table.Cols(e.Table.ColSel).Name = "电话" Then
    ClipBoard.Clear()
    If e.Control = True AndAlso e.KeyCode = Keys.C Then
        e.Cancel = True
    End If
End If
--  作者：zoudezhao
--  发布时间：2017/11/2 15:31:00
--  
这种不能复制有一个漏洞    假设B列不可复制，当我同时选中AB两列的时候还是可以把B列复制出去的。该怎么办
--  作者：有点甜
--  发布时间：2017/11/2 15:45:00
--  

For i As integer = e.Table.leftCol To e.Table.rightCol
    If e.Table.cols(i).name = "第二列" Then
        If e.Control = True AndAlso e.KeyCode = Keys.C Then
            \'ClipBoard.Clear()
            e.Cancel = True
        End If
    End If
Next
--  作者：zoudezhao
--  发布时间：2017/11/3 10:46:00
--  
好的感谢甜老师