关于动态导航条

[zhonwei123]

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

[wuhuabucai]

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

[IHandler]

搜一下 JQuery Easy UI

[小木仔]

'动态生成导航
'参数
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

[hch126163]

repeat 嵌套页可以