主题：动态生成菜单的问题(封贴)

Dim drs As List(Of DataRow)

drs = DataTables("功能导航").Select("[权限部门] like '*" & _UserGroup & "'","序号")

'RibbonTabs.Clear

For Each dr As DataRow In drs

    Dim gn As New RibbonMenu.Tab(dr("区"))

    If  RibbonTabs.Contains(dr("区")) Then

        e.Cancel=True

    Else

        gn.Text = dr("区")

        RibbonTabs.Add(gn)

    End If

    Dim g As New RibbonMenu.Group(dr("组"))

    g.Text = dr("组")

    RibbonTabs(dr("区")).Groups.Add(g)

    Select Case dr("标题")

        Case "按钮"

            Dim b As New RibbonMenu.Button(dr("标题"))

            b.Text = dr("标题")

            b.LargeImage = GetImage(ProjectPath & "Images\" & dr("图标"))

            b.TextImageRelation = TextImageRelationEnum.ImageAboveText

            g.Items.Add(b)

    End Select

Next

  按钮好像没有生成,看看是怎么回事?以前成功!