以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制粘贴  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196507)

--  作者:漂亮美眉vszh
--  发布时间:2025/5/7 10:42:00
--  复制粘贴
老师,一张表,其中某个符合条件的单元格禁止复制(注意不是某列)其他单元格允许复制粘贴,可以实现吗?
--  作者:有点蓝
--  发布时间:2025/5/7 10:51:00
--  
类似:http://www.foxtable.com/webhelp/topics/3736.htm

AfterSelChange

Dim r As Row = e.Table.Rows(e.NewRange.Rowsel
Dim c As Col = e.Table.Cols(e.NewRange.ColSel 
    If c.name = "某列" andalso r(c)="符合条件的某值" Then
        e.Table.DataTable.AllowClipBoard = False
        Return
    End 
If

e
.Table.DataTable.AllowClipBoard = True

--  作者:漂亮美眉vszh
--  发布时间:2025/5/7 11:19:00
--  
老师,刚可能是我没表达清楚,是粘贴,不是复制。
假如我复制了7行内容,粘贴到表里时,只贴6行,其中一条符合条件的不粘贴进入,
可行吗?
[此贴子已经被作者于2025/5/7 11:20:29编辑过]

--  作者:有点蓝
--  发布时间:2025/5/7 11:22:00
--  
http://www.foxtable.com/webhelp/topics/0624.htm