主题：导航栏运行错误 ，代码如何改？

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)