主题：[求助]菜单的可用不可用

红袍老师，

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72355&authorid=0&page=0&star=1

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:窗口菜单 (1).table

老师，

 锁定，就是应该针对没有子菜单的。

 

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

红袍老师，

 

哦 老师 另外一个窗口 是为了测试 可能把您误解了；

Dim tab= e.Form.Controls("TabControl1").Basecontrol

Dim gz As String = DataTables("AS002分类编码方案").Find("基础档案名称 = '菜单列表'")("编码规则")
Dim dt As DataTable = DataTables("菜单列表")
For Each p As object In tab.TabPages
    Dim menuStrip As new System.Windows.Forms.MenuStrip()
    menustrip.Name = p.Name
    Dim ft As String= "(',' + [窗口名称] + ',') Like '%," & p.text  & ",%'"
    For Each dr As DataRow In dt.Select(ft,"编码规则")
        If dr.IsNull("编码规则") = False AndAlso dr("编码规则").Length = val(gz(0)) Then
            Dim tsmi As new System.Windows.Forms.ToolStripMenuItem
            tsmi.name = dr("编码规则")
            tsmi.Text = dr("编码名称")
            menuStrip.Items.Add(tsmi)
            AddHandler tsmi.Click, AddressOf menu_Click
            Functions.Execute("菜单生成",tsmi,dt,gz)
        End If
    Next
    P.Controls.add(menuStrip)
Next

Dim menu = e.Form.controls("TabControl1").Basecontrol.controls("窗口2").Controls("窗口2")' 这块好像不对
Dim item = menu.Items("01").DropDownItems("0101")
If item.DropDownItems.Count = 0 Then
    'item.Enabled = True
'Else
    item.Enabled = False
End If

太棒了 谢谢老师 周末愉快