Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]菜单的可用不可用


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

主题：[求助]菜单的可用不可用
帅哥哟，离线，有人找我吗？
blsu33
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/9/2 10:40:00 [只看该作者]

红袍老师，
  还得麻烦您，我试着想要循环菜单，让所有的菜单变成不可用，用下面代码可以实现


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

'循环菜单全部确认为false开始
Dim bmgzname As New List(Of String)
Dim drs1 As List(Of DataRow)=DataTables("AS012菜单生成").Select("[是否末级]=true")‘递归只选择末级
For Each dr As DataRow In drs1
    bmgzname.Add(dr("编码规则"))
Next
Dim i1 As Integer
Dim cdname As String
For i1=0 To bmgzname.Count-1
    cdname=""
    cdname=bmgzname(i1)
    Dim menu = e.Form.controls("TabControl1").Basecontrol.controls("系统管理").Controls("系统管理")
    Dim item = menu.Items(cdname.SubString(0,2)).DropDownItems(cdname)
    If item.DropDownItems.Count = 0 Then
        item.Enabled = False
    End If
Next
'循环菜单全部确认为false结束


有没有其他的方式或是代码？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/2 12:25:00 [只看该作者]

系想表达什么？你不是已经实现了么？

 

就是根据表信息控制就好。
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/9/2 12:30:00 [只看该作者]

o 老师 我的意思 上述代码 对二级 没问题 如果是三级 就有难度了 
我的意思 想问问 您 没有好的代码 直接循环菜单的命令

例如 FOR EACH CD as menu.Item  IN menu
           IF CD.NAME="9401"
...
             END IF
        next
[此贴子已经被作者于2015/9/2 12:30:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/2 12:35:00 [只看该作者]

 参考之前生成菜单的代码，循环菜单，用递归。

 

 
 回到顶部
总数 14 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询