红袍老师,这个例子
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73375&authorid=0&page=0&star=1
锁定的代码是这个
Dim menu = e.Form.baseform.controls("菜单")
'menu.Items("01").Enabled = False
Dim item = menu.Items("01").DropDownItems("0101").DropDownItems("010102")
If item.DropDownItems.Count = 0 Then
item.Enabled = False
End If
这块怎么能优化下 我在上个例子 麻烦你在给看下 网路不好 先发下