专家坐堂-[请教] 关关于菜单的设计问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

lin_hailun 图片点击可在新窗口打开查看

在帖子<[分享]从数据表生成动态菜单，让多个项目共用一个菜单。>中给出了一个办法，我也试了，在试用版中正常，可在我的开发版中只能生成菜单项，却无法触发任何事件。请教，我该怎么做？

这是添加的主菜单的click事件：（照抄过来的）
messagebox.show("菜单项: " & e.Sender.Name)

try

    Functions.Remove("ExecuteMenu")
    Dim dr As DataRow = DataTables("菜单表").Find("_Identify = " & e.Sender.Name)
    Dim Code As String = dr("菜单代码")
    Functions.Add("ExecuteMenu", Code)
    Functions.Complie()
    Functions.Execute("ExecuteMenu")

catch ex As exception

End try

项目的AfterOpenProject 中处理菜单内容的代码如下： (照抄来的）

LockBaseMainForm() \'锁定主窗口
\'
\'RibbonTabs.Clear
\'QAT.Items.Clear
\'ConfigBar.Items.Clear

\'
Dim dt As DataTable = DataTables("菜单表")
For Each dr As DataRow In dt.DataRows
    messagebox.show(dr("菜单标题"))
    Select Case dr("类型")
        Case "功能区"

            Dim ntab As RibbonMenu.Tab
            Dim ngrp As RibbonMenu.Group
            Dim nmenu As Object

            If RibbonTabs.Contains(dr("功能区")) Then
                ntab = RibbonTabs(dr("功能区"))
            Else
                ntab = New RibbonMenu.Tab(dr("功能区"))
                RibbonTabs.Add(ntab)
            End If

            If ntab.Groups.Contains(dr("功能组")) Then
                ngrp = ntab.Groups(dr("功能组"))
            Else
                ngrp = New RibbonMenu.Group(dr("功能组"))
                ntab.Groups.Add(ngrp)
            End If
            \'编译一个生成不同菜单的函数
            Functions.Remove("CreateMenu")
            Dim Code As String = ""
            Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf
            Code = Code & "Return menu"

            Functions.Add("CreateMenu", Code)
            Functions.Complie()

            nmenu = Functions.Execute("CreateMenu")

            ntab.Text = dr("功能区")
            ngrp.Text = dr("功能组")
            nmenu.Text = dr("菜单标题")
            nmenu.smallImage = getimage(dr("图标"))

            ngrp.Items.Add(nmenu)   \'加入菜单

        Case "快速访问栏"
            \'编译一个生成不同菜单的函数
            If dr.Isnull("功能区") Then
                \'编译一个生成不同菜单的函数
                Functions.Remove("CreateMenu")
                Dim Code As String = ""
                Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("菜单标题") & """)" & vbcrlf
                Code = Code & "Return menu"

                Functions.Add("CreateMenu", Code)
                Functions.Complie()

                Dim nmenu As Object = Functions.Execute("CreateMenu")
                nmenu.Text = dr("菜单标题")

                QAT.Items.Add(nmenu)
            Else
                \'编译一个生成不同菜单的函数
                Functions.Remove("CreateMenu")
                Dim Code As String = ""
                Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf
                Code = Code & "Return menu"

                Functions.Add("CreateMenu", Code)
                Functions.Complie()

                Dim nmenu As Object = Functions.Execute("CreateMenu")
                nmenu.Text = dr("菜单标题")

                QAT.Items(dr("功能区")).Items.Add(nmenu)
            End If
        Case "配置栏"
            \'编译一个生成不同菜单的函数
            Functions.Remove("CreateMenu")
            Dim Code As String = ""
            Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf
            Code = Code & "Return menu"

            Functions.Add("CreateMenu", Code)
            Functions.Complie()

            Dim nmenu As Object = Functions.Execute("CreateMenu")
            nmenu.Text = dr("菜单标题")
            nmenu.smallImage = getimage(dr("图标"))
            ConfigBar.Items.Add(nmenu)

    End Select
Next

UnLockBaseMainForm() \'解锁主窗口

菜单表的格式如下：