以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 右击Table时，如何根据列的内容设置权限  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105695)
--  作者：2900819580
--  发布时间：2017/8/24 14:29:00
--  [求助] 右击Table时，如何根据列的内容设置权限
右击Table时，如何根据列的内容设置权限
如，
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim r As Row = tb.Current
if r("类型") = 图纸 then 
快捷菜单显示1
elseif if r("类型") = 程序 then 
快捷菜单显示2
end if

这些代码应该写在那个事件当中。
--  作者：有点甜
--  发布时间：2017/8/24 14:37:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0662.htm

 
--  作者：2900819580
--  发布时间：2017/8/24 17:21:00
--  
老师，我做的是窗口的快捷菜单，代码应该怎么改。。。。
--  作者：有点甜
--  发布时间：2017/8/24 18:10:00
--  

参考代码

 

e.cancel = True
If Date.now.Second Mod 2 = 0 Then
    e.form.controls("table1").ContextStrip = e.Form.Strips("快捷菜单1")
Else
    e.form.controls("table1").ContextStrip = e.Form.Strips("快捷菜单2")
End If