我需要做一个动态导航条,从数据库里读取数据,需要一个2级菜单,大家能给点思路吗?最好有例子的 谢谢你的

解决方案 »

  1.   

    既然是.net 那就参考 treeview 绑定数据呗
      

  2.   

    搜一下 JQuery Easy UI
      

  3.   

     '动态生成导航
            '参数
            Public Sub 导航填充(ByVal 导航控件 As Menu, ByVal SQL As String, ByVal 跟目录参数 As String, ByVal 代码字段 As String, ByVal 文本字段 As String, ByVal 父级代码字段 As String, ByVal URL字段 As String, ByVal IMG字段 As String, ByVal 打开方式字段 As String)
                Dim I As Integer = 0
                Dim DS As DataSet = (New AutoCommon.数据操作).获取数据集(SQL)
                Dim DV As New DataView(DS.Tables(0))
                DV.RowFilter = 父级代码字段 + " ='" & 跟目录参数 & "'"
                For Each Row As DataRowView In DV
                    导航填充(导航控件, Row(文本字段).ToString(), Row(URL字段).ToString(), Row(IMG字段).ToString(), Row(打开方式字段).ToString())
                    Dim DV2 As DataView = DV
                    DV2.RowFilter = 父级代码字段 + " ='" + Row(代码字段).ToString() + "'"
                    If DV2.Count > 0 Then
                        For Each Row2 As DataRowView In DV2
                            子导航填充(导航控件, Row2(文本字段).ToString(), Row2(URL字段).ToString(), Row2(IMG字段).ToString(), Row2(打开方式字段).ToString(), I)
                        Next
                    End If
                    I = I + 1
                Next
            End Sub        Protected Sub 导航填充(ByVal 导航控件 As Menu, ByVal 文本 As String, ByVal URL As String, ByVal IMG As String, ByVal Target As String)
                Dim 控件 As New MenuItem()
                控件.NavigateUrl = URL
                控件.Text = 文本
                控件.Target = Target
                控件.ImageUrl = IMG
                导航控件.Items.Add(控件)
            End Sub        Protected Sub 子导航填充(ByVal 导航控件 As Menu, ByVal 文本 As String, ByVal URL As String, ByVal IMG As String, ByVal Target As String, ByVal i As Integer)
                Dim 控件 As New MenuItem()
                控件.NavigateUrl = URL
                控件.Text = 文本
                控件.Target = Target
                控件.ImageUrl = IMG
                导航控件.Items(i).ChildItems.Add(控件)
            End Sub