以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问一下，我在右键快捷菜单的popup事件中这样写的目的是为了让这个截图功能在不同的表右键后能够相应的隐藏，为什么这样写会无效的呢，求解  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116605)
--  作者：lzw001
--  发布时间：2018/3/28 8:50:00
--  请问一下，我在右键快捷菜单的popup事件中这样写的目的是为了让这个截图功能在不同的表右键后能够相应的隐藏，为什么这样写会无效的呢，求解
请问一下，我在右键快捷菜单的popup事件中这样写的目的是为了让这个截图功能在不同的表右键后能够相应的隐藏，为什么这样写会无效的呢，求解

代码如下：
If CurrentTable.Name="荣e享财务系统推送" Then ContextMenus("test").Items("截图上传1").Visible=False ContextMenus("test").Items("截图上传1.1").Visible=False ContextMenus("test").Items("截图上传3").Visible=False ContextMenus("test").Items("截图上传3.1").Visible=False ContextMenus("test").Items("截图上传3.2").Visible=False ContextMenus("test").Items("截图上传3.3").Visible=False ContextMenus("test").Items("截图上传3.4").Visible=False ContextMenus("test").Items("截图上传4").Visible=False ContextMenus("test").Items("截图上传5").Visible=False ContextMenus("test").Items("截图上传6.1").Visible=False ContextMenus("test").Items("截图上传8").Visible=False ContextMenus("test").Items("截图上传8.1").Visible=False ContextMenus("test").Items("截图上传8.2").Visible=False End If If CurrentTable.Name="平台合伙人订单数据" Then ContextMenus("test").Items("截图上传3").Visible=False ContextMenus("test").Items("截图上传3.1").Visible=False ContextMenus("test").Items("截图上传3.2").Visible=False ContextMenus("test").Items("截图上传3.3").Visible=False ContextMenus("test").Items("截图上传3.4").Visible=False ContextMenus("test").Items("截图上传4").Visible=False ContextMenus("test").Items("截图上传5").Visible=False ContextMenus("test").Items("截图上传6").Visible=False ContextMenus("test").Items("截图上传6.1").Visible=False ContextMenus("test").Items("截图上传8").Visible=False ContextMenus("test").Items("截图上传8.1").Visible=False ContextMenus("test").Items("截图上传8.2").Visible=False End If If CurrentTable.Name="保证金" Then ContextMenus("test").Items("截图上传1").Visible=False ContextMenus("test").Items("截图上传1.1").Visible=False ContextMenus("test").Items("截图上传4").Visible=False ContextMenus("test").Items("截图上传5").Visible=False ContextMenus("test").Items("截图上传6").Visible=False ContextMenus("test").Items("截图上传6.1").Visible=False ContextMenus("test").Items("截图上传8").Visible=False ContextMenus("test").Items("截图上传8.1").Visible=False ContextMenus("test").Items("截图上传8.2").Visible=False End If If CurrentTable.Name="费用报销单2" Then ContextMenus("test").Items("截图上传1").Visible=False ContextMenus("test").Items("截图上传1.1").Visible=False ContextMenus("test").Items("截图上传3").Visible=False ContextMenus("test").Items("截图上传3.1").Visible=False ContextMenus("test").Items("截图上传3.2").Visible=False ContextMenus("test").Items("截图上传3.3").Visible=False ContextMenus("test").Items("截图上传3.4").Visible=False ContextMenus("test").Items("截图上传4").Visible=False ContextMenus("test").Items("截图上传6").Visible=False ContextMenus("test").Items("截图上传6.1").Visible=False ContextMenus("test").Items("截图上传8").Visible=False ContextMenus("test").Items("截图上传8.1").Visible=False ContextMenus("test").Items("截图上传8.2").Visible=False End If If CurrentTable.Name="荣e享财务系统推送3" Then ContextMenus("test").Items("截图上传1").Visible=False ContextMenus("test").Items("截图上传1.1").Visible=False ContextMenus("test").Items("截图上传3").Visible=False ContextMenus("test").Items("截图上传3.1").Visible=False ContextMenus("test").Items("截图上传3.2").Visible=False ContextMenus("test").Items("截图上传3.3").Visible=False ContextMenus("test").Items("截图上传3.4").Visible=False ContextMenus("test").Items("截图上传4").Visible=False ContextMenus("test").Items("截图上传5").Visible=False ContextMenus("test").Items("截图上传6").Visible=False ContextMenus("test").Items("截图上传8").Visible=False ContextMenus("test").Items("截图上传8.1").Visible=False ContextMenus("test").Items("截图上传8.2").Visible=False End If If CurrentTable.Name="外访费系统设计" Then ContextMenus("test").Items("截图上传1").Visible=False ContextMenus("test").Items("截图上传1.1").Visible=False ContextMenus("test").Items("截图上传3").Visible=False ContextMenus("test").Items("截图上传3.1").Visible=False ContextMenus("test").Items("截图上传3.2").Visible=False ContextMenus("test").Items("截图上传3.3").Visible=False ContextMenus("test").Items("截图上传3.4").Visible=False ContextMenus("test").Items("截图上传4").Visible=False ContextMenus("test").Items("截图上传5").Visible=False ContextMenus("test").Items("截图上传6").Visible=False ContextMenus("test").Items("截图上传6.1").Visible=False End If If CurrentTable.Name="现金支出凭单" Then ContextMenus("test").Items("截图上传1").Visible=False ContextMenus("test").Items("截图上传1.1").Visible=False ContextMenus("test").Items("截图上传3").Visible=False ContextMenus("test").Items("截图上传3.1").Visible=False ContextMenus("test").Items("截图上传3.2").Visible=False ContextMenus("test").Items("截图上传3.3").Visible=False ContextMenus("test").Items("截图上传3.4").Visible=False ContextMenus("test").Items("截图上传5").Visible=False ContextMenus("test").Items("截图上传6").Visible=False ContextMenus("test").Items("截图上传6.1").Visible=False ContextMenus("test").Items("截图上传8").Visible=False ContextMenus("test").Items("截图上传8.1").Visible=False ContextMenus("test").Items("截图上传8.2").Visible=False End If
 

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180328084700.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/3/28 9:18:00
--  
加入代码，弹出 msgbox(currentTable.Name) 的值看看。
--  作者：lzw001
--  发布时间：2018/3/28 9:22:00
--  
好的
--  作者：lzw001
--  发布时间：2018/3/28 9:25:00
--  
我把代码加在最前面了，显示的当前表是正确的
--  作者：有点甜
--  发布时间：2018/3/28 9:40:00
--  

有没有报错？代码绝对没问题的。

 

或者你做个例子发上来测试。
--  作者：lzw001
--  发布时间：2018/3/28 9:56:00
--  
没有报错，好的
--  作者：lzw001
--  发布时间：2018/3/28 10:27:00
--  
就是它只显示第一个打开的表的快捷菜单而已的
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:右键快捷设置.rar
--  作者：有点甜
--  发布时间：2018/3/28 11:26:00
--  

每一次，都需要把之前的还原，或者你把visible=true的也设置一下。

 

msgbox("当前表:" & CurrentTable.Name)

For Each i As object In e.ContextMenu.Items
    i.visible = True
Next

If CurrentTable.Name="表A" Then
    ContextMenus("test").Items("截图表B").Visible=False
    ContextMenus("test").Items("截图表C").Visible=False
End If

If CurrentTable.Name="表B" Then
    ContextMenus("test").Items("截图表A").Visible=False
    ContextMenus("test").Items("截图表C").Visible=False
End If


If CurrentTable.Name="表C" Then
    ContextMenus("test").Items("截图表A").Visible=False
    ContextMenus("test").Items("截图表B").Visible=False
End If
--  作者：lzw001
--  发布时间：2018/3/28 15:14:00
--  
好的，谢谢，我这样写了之后，想让不用截图的表右键之后不显示这些截图的菜单，但是没有效果，是哪里的错的

If CurrentTable.Name="荣e享财务系统推送" OrElse CurrentTable.Name="平台合伙人订单数据" OrElse CurrentTable.Name="保证金" OrElse CurrentTable.Name="费用报销单2" OrElse CurrentTable.Name="荣e享财务系统推送3" OrElse CurrentTable.Name="外访费系统设计" OrElse CurrentTable.Name="现金支出凭单" Then
For Each i As object In e.ContextMenu.Items
    i.visible = True
Next
End If
--  作者：有点甜
--  发布时间：2018/3/28 15:35:00
--  

不显示，就改成

 

 i.visible = False