以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何动态添加快捷菜单选项?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128006)

--  作者:rogen
--  发布时间:2018/11/27 9:21:00
--  如何动态添加快捷菜单选项?
想对table做一个右键菜单
希望能从表里读取值,作为菜单项
比如 仓位表,仓位字段有值 :配件仓/成品仓/辅料仓 等等(每个值一条记录)
希望右键菜单能显示:配件仓/成品仓/辅料仓 等等(每个值为一个菜单按钮)
字段值可以在运行期增减,菜单项也能跟随变化

该怎么弄呢?

--  作者:有点甜
--  发布时间:2018/11/27 11:38:00
--  

如果是窗口table

 

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

 

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

 

如果不是窗口里面的table

 

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

 

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

 


--  作者:rogen
--  发布时间:2018/11/27 14:08:00
--  

老师:我是希望菜单项能根据字段内容动态生成,如下图示

 左边是字段内容,右边是根据字段内容动态生成的快捷菜单项


图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/11/27 14:09:06编辑过]

--  作者:有点甜
--  发布时间:2018/11/27 14:55:00
--  

增加减少快捷菜单,参考

 

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

 


--  作者:rogen
--  发布时间:2018/11/27 15:38:00
--  

下面这个代码报错,我是写在快捷菜单的popup事件里的:

Dim mnu As RibbonMenu.ContextMenu = ContextMenus("仓位快捷菜单")
Dim sts As String = DataTables("仓位表").GetComboListString("仓位")
For Each st As String In sts.Split("|")
    mnu.Items.Add(st)
Next

 

该怎么改呢?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181127153456.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/11/27 15:38:36编辑过]

--  作者:有点甜
--  发布时间:2018/11/27 16:07:00
--  

参考代码

 

Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
Dim a As new C1.Win.C1Command.C1Command
a.name = "test"
a.text = "test"
Dim b As new C1.Win.C1Command.C1CommandLink(a)
Dim c As new RibbonMenu.ContextCommand(b)
If mnu1.items.Contains("test") = False Then
    mnu1.items.add(c)
End If