从这个数据类输出数据

请有人可以帮助使用哪些控件/方法来从这个类中获取数据到嵌套列表中，即父类，子类，孙类，greatgrandchild？从这个数据类输出数据

当我运行：

Dim menu As New MenuBuilder 
     Response.Write(menu.BuildMenu().ToString)

我只得到子级别的高层联系，并没有

感谢。

Public Class MenuBuilder 
    Private _rawData As List(Of MenuData) = MenuDataImport.GetMenuData() 

    Public Function BuildMenu() As String 

     'create a new list with the top level0 items only 
     Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0)) 

     'sort the top level items 
     builtMenu.Sort(Function(a, b) a.OrderID - b.OrderID) 

     'get the children items 
     For Each menuData As MenuData In builtMenu 
      If menuData.Children IsNot Nothing Then 
       menuData.Children.AddRange(GetChildren(menuData)) 
      End If 
     Next 
     Dim Builder = New StringBuilder() 

     'builtMenu contains the right items with the right children in order. 
     For Each menuData As MenuData In builtMenu 
      If menuData.Url IsNot Nothing And menuData.Moduleid = 0 Then 
       'format as a standard link 
       Builder.AppendFormat("<a href=""http://{0}"" target=""{1}"">{2}</a>", menuData.Url, menuData.Urltarget, menuData.Heading) 
      ElseIf InStr(menuData.Url, "file:///") Then 
       'format as a file link 
       Builder.AppendFormat("<a href={0} target=""{1}"">{2}</a>", menuData.Url, menuData.Urltarget, menuData.Heading) 
      Else 
       'format as a querystring id link 
       Builder.AppendFormat("<a href=Default.aspx?id={0}>{1}</a>", menuData.Id, menuData.Heading) 
      End If 
      If menuData.Children IsNot Nothing Then 
       For Each child As MenuData In menuData.Children 
        If child.Url IsNot Nothing And child.Moduleid = 0 Then 
         'format as a standard link 
         Builder.AppendFormat("<a href=""http://{0}"" target=""{1}"">{2}</a>", child.Url, child.Urltarget, child.Heading) 
        ElseIf InStr(child.Url, "file:///") Then 
         'format as a file link 
         Builder.AppendFormat("<a href={0} target=""{1}"">{2}</a>", child.Url, child.Urltarget, child.Heading) 
        Else 
         'format as a querystring id link 
         Builder.AppendFormat("<a href=Default.aspx?id={0}>{1}</a>", child.Id, child.Heading) 
        End If 

        For Each grandChild As MenuData In child.Children 
         If grandChild.Url IsNot Nothing And grandChild.Moduleid = 0 Then 
          'format as a standard link 
          Builder.AppendFormat("<a href=""http://{0}"" target=""{1}"">{2}</a>", grandChild.Url, grandChild.Urltarget, grandChild.Heading) 
         ElseIf InStr(grandChild.Url, "file:///") Then 
          'format as a file link 
          Builder.AppendFormat("<a href={0} target=""{1}"">{2}</a>", grandChild.Url, grandChild.Urltarget, grandChild.Heading) 
         Else 
          'format as a querystring id link 
          Builder.AppendFormat("<a href=Default.aspx?id={0}>{1}</a>", grandChild.Id, grandChild.Heading) 
         End If 

         For Each greatgrandChild As MenuData In grandChild.Children 
          If greatgrandChild.Url IsNot Nothing And greatgrandChild.Moduleid = 0 Then 
           'format as a standard link 
           Builder.AppendFormat("<a href=""http://{0}"" target=""{1}"">{2}</a>", greatgrandChild.Url, greatgrandChild.Urltarget, greatgrandChild.Heading) 
          ElseIf InStr(grandChild.Url, "file:///") Then 
           'format as a file link 
           Builder.AppendFormat("<a href={0} target=""{1}"">{2}</a>", greatgrandChild.Url, greatgrandChild.Urltarget, greatgrandChild.Heading) 
          Else 
           'format as a querystring id link 
           Builder.AppendFormat("<a href=Default.aspx?id={0}>{1}</a>", greatgrandChild.Id, greatgrandChild.Heading) 
          End If 
         Next 
        Next 

       Next 

      End If 

     Next 
     Return Builder.ToString() 
    End Function 

    Private Function GetChildren(ByVal parent As MenuData) As List(Of MenuData) 
     Dim children As List(Of MenuData) = _rawData.FindAll(Function(item) item.GroupingID = parent.Id) 

     'sort the menu items 
     children.Sort(Function(a, b) a.OrderID - b.OrderID) 

     'get children's children 
     For Each menuData As MenuData In children 
      If menuData.Children IsNot Nothing Then 
       menuData.Children.AddRange(GetChildren(menuData)) 
      End If 
     Next 
     Return children 
    End Function 
End Class

来源

2010-06-23 Phil

我已经做了修正，以下面的代码，因为你通过电子邮件发送整个文件。 – 2010-06-23 14:49:48

公共类使用MenuBuilder 私人_rawData方式列表（中MenuData）= MenuDataImport.GetMenuData（）

Public Function BuildMenu() As String 

    'create a new list with the top level0 items only 
    Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0)) 

    'sort the top level items 
    builtMenu.Sort(Function(a, b) a.OrderID - b.OrderID) 

    'get the children items 
    For Each menuData As MenuData In builtMenu 
     If menuData.Children IsNot Nothing Then 
      menuData.Children.AddRange(GetChildren(menuData)) 
     End If 
    Next 
    Dim Builder = New StringBuilder() 

    Builder.Append("<ul>") 
    'builtMenu contains the right items with the right children in order. 
    For Each menuData As MenuData In builtMenu 
     Builder.Append("<li>") 
     If menuData.Url IsNot Nothing And menuData.Moduleid = 0 Then 
      'format as a standard link 
      Builder.AppendFormat("<a href=""http://{0}"" target=""{1}"">{2}</a>", menuData.Url, menuData.Urltarget, menuData.Heading) 
     ElseIf InStr(menuData.Url, "file:///") Then 
      'format as a file link 
      Builder.AppendFormat("<a href={0} target=""{1}"">{2}</a>", menuData.Url, menuData.Urltarget, menuData.Heading) 
     Else 
      'format as a querystring id link 
      Builder.AppendFormat("<a href=Default.aspx?id={0}>{1}</a>", menuData.Id, menuData.Heading) 
     End If 
     If menuData.Children IsNot Nothing Then 
      Builder.Append("<ul>") 
      For Each child As MenuData In menuData.Children 
       Builder.Append("<li>") 
       If child.Url IsNot Nothing And child.Moduleid = 0 Then 
        'format as a standard link 
        Builder.AppendFormat("<a href=""http://{0}"" target=""{1}"">{2}</a>", child.Url, child.Urltarget, child.Heading) 
       ElseIf InStr(child.Url, "file:///") Then 
        'format as a file link 
        Builder.AppendFormat("<a href={0} target=""{1}"">{2}</a>", child.Url, child.Urltarget, child.Heading) 
       Else 
        'format as a querystring id link 
        Builder.AppendFormat("<a href=Default.aspx?id={0}>{1}</a>", child.Id, child.Heading) 
       End If 

       If child.Children IsNot Nothing Then 
        Builder.Append("<ul>") 
        For Each grandChild As MenuData In child.Children 
         Builder.Append("<li>") 
         If grandChild.Url IsNot Nothing And grandChild.Moduleid = 0 Then 
          'format as a standard link 
          Builder.AppendFormat("<a href=""http://{0}"" target=""{1}"">{2}</a>", grandChild.Url, grandChild.Urltarget, grandChild.Heading) 
         ElseIf InStr(grandChild.Url, "file:///") Then 
          'format as a file link 
          Builder.AppendFormat("<a href={0} target=""{1}"">{2}</a>", grandChild.Url, grandChild.Urltarget, grandChild.Heading) 
         Else 
          'format as a querystring id link 
          Builder.AppendFormat("<a href=Default.aspx?id={0}>{1}</a>", grandChild.Id, grandChild.Heading) 
         End If 

         If grandChild.Children IsNot Nothing Then 
          Builder.Append("<ul>") 
          For Each greatgrandChild As MenuData In grandChild.Children 
           Builder.Append("<li>") 
           If greatgrandChild.Url IsNot Nothing And greatgrandChild.Moduleid = 0 Then 
            'format as a standard link 
            Builder.AppendFormat("<a href=""http://{0}"" target=""{1}"">{2}</a>", greatgrandChild.Url, greatgrandChild.Urltarget, greatgrandChild.Heading) 
           ElseIf InStr(grandChild.Url, "file:///") Then 
            'format as a file link 
            Builder.AppendFormat("<a href={0} target=""{1}"">{2}</a>", greatgrandChild.Url, greatgrandChild.Urltarget, greatgrandChild.Heading) 
           Else 
            'format as a querystring id link 
            Builder.AppendFormat("<a href=Default.aspx?id={0}>{1}</a>", greatgrandChild.Id, greatgrandChild.Heading) 
           End If 
           Builder.Append("</li>") 
          Next 
          Builder.Append("</ul>") 
         End If 
         Builder.Append("</li>") 
        Next 
        Builder.Append("</ul>") 
       End If 
       Builder.Append("</li>") 
      Next 
      Builder.Append("</ul>") 
     End If 
     Builder.Append("</li>") 
    Next 
    Builder.Append("</ul>") 
    Return Builder.ToString() 
End Function

来源

2010-06-23 14:42:22

从这个数据类输出数据

回答

相关问题