Estou desenvolvendo um menu dinâmico utilizando o controle menu do asp.net 2.0, porém não estou conseguindo gerar mais de um nivel de menu, ou seja:
> Menu
> Nivel 1
> Nivel 2
Segue abaixo o codigo que estou usando:
Public
Sub PopulateMenu()
Dim url As String = String.Empty
Dim titulo As String = String.Empty
Dim ds As Data.DataSet
ds =
Me.GetDataSet("Select * From Menu where idPai = 0")
For Each row As Data.DataRow In ds.Tables(0).Rows
Dim masteritem As New MenuItem(row("Nome").ToString)
Dim dsFilho As Data.DataSet
Dim dsFilho2 As Data.DataSet
dsFilho =
Me.GetDataSet("Select * From Menu where idPai =" & row("ID"))
Menu1.Items.Add(masteritem)
If dsFilho.Tables(0).Rows.Count <> 0 Then
For Each rowChild As Data.DataRow In dsFilho.Tables(0).Rows
Dim childItem As New MenuItem(rowChild("Nome").ToString)
childItem.NavigateUrl = rowChild(
"Nome").ToString & ".aspx"
dsFilho2 =
Me.GetDataSet("Select * From Menu where idPai =" & rowChild("ID"))
If dsFilho2.Tables(0).Rows.Count <> 0 Then
For Each rowChild2 As Data.DataRow In dsFilho2.Tables(0).Rows
<< AQUI FICARIA O CODIGO >>
Next
End If
masteritem.ChildItems.Add(childItem)
Next
End If
Next
End Sub