以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  禁止删除表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80896)
--  作者：kaituozhe
--  发布时间：2016/2/6 9:19:00
--  禁止删除表
有些重要的表，担心误删除，可以禁止删除表吗？
--  作者：狐狸爸爸
--  发布时间：2016/2/6 9:21:00
--  

可以，Afteropenproject事件：

 

RibbonTabs("Table").Groups("Table").Items("DeleteTable").Enabled = False

 
--  作者：kaituozhe
--  发布时间：2016/2/6 11:41:00
--  
这样是所有的表都不能删除，我想要的只是某一些表
--  作者：大红袍
--  发布时间：2016/2/6 11:46:00
--  

自己做一个按钮

 

 

Dim tname() As String = {"表A", "表C"}
If array.Indexof(tname, CurrentTable.Name) >= 0 Then
    msgbox("此表不能删除")
Else
    Syscmd.Table.Delete()
End If
--  作者：kaituozhe
--  发布时间：2016/2/6 11:55:00
--  
你的意思把删除表的命令禁用，然后自己再做一个删除按钮，对禁止删除放在tname中
--  作者：kaituozhe
--  发布时间：2016/2/6 11:56:00
--  
对吗
--  作者：大红袍
--  发布时间：2016/2/6 11:56:00
--  
是的。
--  作者：大红袍
--  发布时间：2016/2/6 11:56:00
--  
你直接修改原来菜单的按钮也可以嘛
--  作者：kaituozhe
--  发布时间：2016/2/6 12:21:00
--  
2楼代码提示菜单中不存在table的功能组
--  作者：大红袍
--  发布时间：2016/2/6 12:36:00
--  
那就不写2楼的代码即可，但都做一个删除表的菜单按钮。