Private Sub LoadMenu(ByVal dsMenu As DataSet) Dim ds As New DataSet Dim i As Integer = 0 If dsMenu.Tables.Count > 0 Then '==========Add Relation between MainMenu table and Menu table If (dsMenu.Tables.Count > 1) Then If (dsMenu.Tables(1).Rows.Count > 0) Then dsMenu.Relations.Add("Menu", dsMenu.Tables(0).Columns("MenuId"), dsMenu.Tables(1).Columns("parentId")) End If End If '========== Add Relation between Menu table and SubMenu table ===================== If (dsMenu.Tables.Count > 2) Then If (dsMenu.Tables(2).Rows.Count > 0) Then dsMenu.Relations.Add("SubMenu", dsMenu.Tables(1).Columns("MenuId"), dsMenu.Tables(2).Columns("parentId")) End If End If '================================ Add menuItem to MainMenu(level2) ============================ For Each MainMenu As DataRow In dsMenu.Tables(0).Rows Dim MainMenuItem As MenuItem MainMenuItem = New MenuItem(MainMenu("MenuName").ToString) MenuCntrl.Items.Add(MainMenuItem) '============================== Add menuItem to Menu(level2) ============================ For Each Menu As DataRow In MainMenu.GetChildRows("Menu") Dim MenuItem As MenuItem MenuItem = New MenuItem(Menu("MenuName").ToString) 'MenuItem = New MenuItem("testMenu") MainMenuItem.ChildItems.Add(MenuItem) '========================= Add menuItem to SubMenu(level3) ============================ For Each subMenu As DataRow In Menu.GetChildRows("SubMenu") Dim SubMenuItem As MenuItem Dim UrlPath As String UrlPath = subMenu("ProgramName").ToString + "?MenuId=" + subMenu("MenuId").ToString 'SubMenuItem = New MenuItem(subMenu("MenuName").ToString, "", "", subMenu("ProgramName").ToString) SubMenuItem = New MenuItem(subMenu("MenuName").ToString, subMenu("MenuId").ToString, "", subMenu("ProgramName").ToString) SubMenuItem.Value = subMenu("MenuId").ToString 'SubMenuItem = New MenuItem(subMenu("MenuName").ToString, "", "", "CHSOC_M_Society.aspx") MenuItem.ChildItems.Add(SubMenuItem) Next Next Next End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)