以下是引用裴保民在2017/8/11 16:37:00的发言:
只是对某一张表将此快捷菜单隐藏或关闭,对其他表正常显示,应该在哪个事件写代码呢?
CurrentTableChanged事件写代码
If CurrentTable.Name = "表A" Then
RibbonTabs("Common").Groups("Data").Items("Other").Items("HideColumn").visible = False
RibbonTabs("Common").Groups("Data").Items("Other").Items("UnHideColumn").visible = False
Else
RibbonTabs("Common").Groups("Data").Items("Other").Items("HideColumn").visible = True
RibbonTabs("Common").Groups("Data").Items("Other").Items("UnHideColumn").visible = True
End If
类似 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103637&skin=0