Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样动态加入右键菜单


  共有28人关注过本帖树形打印复制链接

主题：怎样动态加入右键菜单
帅哥哟，离线，有人找我吗？
lianghanyu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2623 威望：0 精华：0 注册：2020/6/28 8:43:00 		怎样动态加入右键菜单  发帖心情 Post By：2025/4/8 8:41:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1111.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：222.jpg
图片点击可在新窗口打开查看


我在项目总表里建立了一个“项目总表菜单”， 现在，它在表格里是可以右击显示出来的。它下边有一些子级菜单。现在我想在“项目总表菜单”下增加一个名称为“添加任务”的子菜单。

然后在“添加任务”菜单下边，动态加入，基本信息表里的，任务类别1，我是通过SQLGetComboListString这样的代码把任务类别1的列表得到的。

然后，在任务类别1下 增加 任务类别 2的子菜单。  

就这样的2级菜单，怎么样去动态生成？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113265 积分：576766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/4/8 9:00:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
lianghanyu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2623 威望：0 精华：0 注册：2020/6/28 8:43:00 		  发帖心情 Post By：2025/4/8 10:43:00 [只看该作者]


我写了以下的代码，但是提示出错：
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("项目总表菜单")
Dim a As New C1.Win.C1Command.C1Command 
a.name = "添加任务" 
a.text = "添加任务"

Dim b As New C1.Win.C1Command.C1CommandLink(a) 
Dim c As New RibbonMenu.ContextCommand(b) 
If mnu1.items.Contains("添加任务") = False Then
    mnu1.items.add(c)
End If



Dim sts As String = DataTables("基本信息").GetComboListString("任务类别1")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("添加任务")
For Each st As String In sts.Split("|")
    Dim d As New C1.Win.C1Command.C1Command 
    d.name = st
    d.text = st
    Dim g As New C1.Win.C1Command.C1CommandLink(d)
    Dim f As New RibbonMenu.ContextCommand(g) 
    '    mnu.Items.Add(st)
    
    If mnu2.items.Contains(st) = False Then
        '       mnu2 .items.add(st)
        
        mnu2.items.add(mnu1.items(st)) 
        
    End If
    
Next


图片点击可在新窗口打开查看此主题相关图片如下：333.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：444.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113265 积分：576766 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/4/8 11:12:00 [只看该作者]

Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("项目总表菜单")
Dim a As New C1.Win.C1Command.C1Command 
a.name = "添加任务" 
a.text = "添加任务"

Dim b As New C1.Win.C1Command.C1CommandLink(a) 
Dim c As New RibbonMenu.ContextCommand(b) 
If mnu1.items.Contains("添加任务") = False Then
    mnu1.items.add(c)
End If



Dim sts As String = DataTables("基本信息").GetComboListString("任务类别1")
For Each st As String In sts.Split("|")
    Dim d As New C1.Win.C1Command.C1Command 
    d.name = st
    d.text = st
    Dim g As New C1.Win.C1Command.C1CommandLink(d)
    Dim f As New RibbonMenu.ContextCommand(g) 
    '    mnu.Items.Add(st)
    
    If c.items.Contains(st) = False Then
        '       mnu2 .items.add(st)
        
        c.items.add(mnu1.items(st)) 
        
    End If
    
Next
 回到顶部
帅哥哟，离线，有人找我吗？
lianghanyu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：296 积分：2623 威望：0 精华：0 注册：2020/6/28 8:43:00 		  发帖心情 Post By：2025/4/8 11:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：555.jpg
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询