以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  右键点击某列的单元格时候，显示特定的快捷菜单  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46786)
--  作者：linshibin
--  发布时间：2014/2/27 16:20:00
--  右键点击某列的单元格时候，显示特定的快捷菜单

右键点击某列的单元格时候，比如“第一列”下方的任意一行的第一列的单元格，显示特定的快捷菜单

 

If _Role = "销售部同事" Or _Role = "销售部经理" Or _Role = "超级管理员" Then
If  e.Table.Current("belonguser") <> "公海" Then \'如果是Cell菜单
e.ContextMenu = ContextMenus("单位转入公海") \'显示快捷菜单"菜单A"
ElseIf  e.Table.Current("belonguser") = "公海" Then \'如果是Cell菜单
e.ContextMenu = ContextMenus("单位转出公海") \'显示快捷菜单"菜单A"
Else
End If
End If

 

 

我现在是这样写的，要怎么修改
--  作者：Bin
--  发布时间：2014/2/27 16:40:00
--  
出现什么问题?
--  作者：linshibin
--  发布时间：2014/2/27 16:48:00
--  

这个是不管在哪里点击 都会出现  单位转出公海  这个快捷菜单

 

现在是希望点击  belonguser  这一列的任意一个单元格 才会出现
--  作者：Bin
--  发布时间：2014/2/27 16:50:00
--  
在加一层判断  IF e.Table.cols(e.Table.ColSel).name = "belonguser" then
--  作者：linshibin
--  发布时间：2014/2/27 18:19:00
--  
搞定了，多谢