关于用数据库来加载手风琴菜单

sjxwb

我是根据三石的在线示例改的，手风琴菜单改为用数据库表来加载，但有点小问题，一级菜单在树中也有显示，如何不重复。
如图：

sanshi

创建树时，把“基本信息”这个节点过滤掉就行了吧

sjxwb

谢谢，不过，试了，好象仍是不行。

sjxwb

    ' 风手琴菜单：
    Private Function InitAccordionMenu() As Accordion
        Dim accordionMenu As New Accordion()
        accordionMenu.ID = "accordionMenu"
        accordionMenu.EnableFill = True
        accordionMenu.ShowBorder = False
        accordionMenu.ShowHeader = False
        Region2.Items.Add(accordionMenu)


        ' 绑定 Datatable 数据源到树控件
        'Dim dt As DataTable = Class1.GetDTb("select * from MenuUrl")
        'Dim ds As New DataSet
        'ds.Tables.Add(dt)

        Dim ds As DataSet
        Dim myconnection As SqlConnection
        Dim myadpt As SqlDataAdapter
        myconnection = New SqlConnection(System.Web.Configuration.WebConfigurationManager.ConnectionStrings("sqlconstr").ToString.Trim)
        myadpt = New SqlDataAdapter("select * from MenuUrl", myconnection)
        ds = New DataSet()
        myadpt.Fill(ds)


        '添加表间关系，处理子树需要
        ds.Relations.Add("TreeRelation", ds.Tables(0).Columns("Id"), ds.Tables(0).Columns("ParentId"), False)

        For Each row As DataRow In ds.Tables(0).Rows

            If row("ParentId") = 0 Then

                '加载手风琴条
                Dim accordionPane As New AccordionPane()
                accordionPane.Title = row("Text").ToString()
                accordionPane.Layout = Layout.Fit
                accordionPane.ShowBorder = False
                accordionPane.BodyPadding = "1px 0 0 0"
                accordionMenu.Items.Add(accordionPane)



                '加载内部中的树型项
                Dim innerTree As New Tree()

                innerTree.EnableArrows = True
                innerTree.ShowBorder = False
                innerTree.ShowHeader = False
                innerTree.EnableIcons = False
                innerTree.AutoScroll = True
                accordionPane.Items.Add(innerTree)


                Dim node As New FineUI.TreeNode()
                node.Text = row("Text").ToString()
                node.NavigateUrl = row("NavigateUrl").ToString()
                node.Expanded = True
                innerTree.Nodes.Add(node)


                '加载子项
                InitSubAccordionMenu(row, node)


                ' 重新设置每个节点的图标
                ResolveTreeNode(innerTree.Nodes)

            End If
        Next

        Return accordionMenu

        myadpt.Dispose()
    End Function
    ' 手风琴菜单－子树
    Private Sub InitSubAccordionMenu(ByVal dataRow As DataRow, ByVal treeNode As FineUI.TreeNode)
        Dim rows As DataRow() = dataRow.GetChildRows("TreeRelation")
        If rows.Length > 0 Then
            treeNode.Expanded = True
            For Each row As DataRow In rows
                Dim node As New FineUI.TreeNode()
                node.Text = row("Text").ToString()
                node.NavigateUrl = row("NavigateUrl").ToString()
                treeNode.Nodes.Add(node)

                InitSubAccordionMenu(row, node)
            Next
        End If

    End Sub

刘军

sanshi 发表于 2012-11-30 02:52
创建树时，把“基本信息”这个节点过滤掉就行了吧

三石兄，手风琴控件貌似不能支持动态加载（通过按钮事件重新绑定），还是我代码有问题？

sanshi

刘军 发表于 2012-11-30 06:16
三石兄，手风琴控件貌似不能支持动态加载（通过按钮事件重新绑定），还是我代码有问题？ ...

动态加载只能放在 Page_Init 中，这是Asp.Net本身架构的限制。

可以看我的博客：http://www.cnblogs.com/sanshi/archive/2012/11/19/2776672.html