红袍老师， 还得麻烦您，我试着想要循环菜单，让所有的菜单变成不可用，用下面代码可以实现
此主题相关图片如下：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结束
有没有其他的方式或是代码？
加好友 
发短信
Post By：2015/9/2 10:40:00 [只看该作者]
