http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72355&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

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