Dim dt As DataTable = DataTables("zac00000")

For Each tbs As String() In dt.GetUniqueValues("","funcid","funcname")

    Dim t As New RibbonMenu.Tab(tbs(0))

    t.Text = tbs(1) \'设置功能区的标题

    RibbonTabs.Add(t)

    For Each gps As String() In dt.GetUniqueValues("funcid = \'"& t.name &"\'","fungid","fungname")

        Dim g As new RibbonMenu.Group(gps(0))

        g.Text = gps(1) \'设置功能组的标题

        t.Groups.Add(g)

        For Each itms As String() In dt.GetUniqueValues("funcid = \'"& t.name &"\' and fungid = \'"& g.name &"\' and ismenu = true","funbid","funbname","funicon","code")

            Dim b As New RibbonMenu.Button(itms(0))

            b.Text = itms(1) \'设置功能按钮的标题

            b.LargeImage = GetImage(itms(2))

            b.ToolTip = itms(3) \'设置功能组按钮的提示

            g.Items.Add(b)

        Next

        

       g.Visible = (g.Items.Count > 0)

    Next

    t.Visible = (t.Groups(0).visible = True)