主题：如何动态添加快捷菜单选项？

想对table做一个右键菜单

如果是窗口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

 

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

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

此主题相关图片如下：无标题.png

增加减少快捷菜单，参考

 

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

 

下面这个代码报错，我是写在快捷菜单的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

参考代码

 

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