Visual Basic

ElseIf i = dt.Rows.Count - 1 Then
    Dim nr As DataRow = dt.NewRow
    nr.ItemArray = nra

    dt.Rows.Add(nr)

    Exit For ' Problem here - Routine does not exit.
    ' Instead, jumps to the 'Next' statement

End If

ElseIf i = dt.Rows.Count - 1 Then
    Dim nr As DataRow = dt.NewRow
    nr.ItemArray = nra

    dt.Rows.Add(nr)

    return dt
End If

public Int32 Level() {
  Int32 levelValue = 0;
  Node node = this;
  while (node.Parent != null) {
    levelValue = levelValue + 1;
    node = node.Parent;
  }
  return levelValue;
}

public Int32 Level() {
  if (this.Parent == null) {
    return 0;
  } else {
    return Level() + 1;
  }
}

CLASS Node
  NodeCollection children
  NodeCollection parent

CLASS NodeCollection
  Node parent

Public Class cTreeNodeCollection
    Inherits List(Of cNode)

    Public Overloads Sub Add(ByVal node As cNode)
        MyBase.Add(node)
        SetAllLevelsAndParents(node.ChildNodes, 1, node)
    End Sub

    Private Sub SetAllLevelsAndParents(ByVal nodeList As List(Of cNode), ByVal level As Int32, ByVal parentNode As cNode)
        For Each n As cNode In nodeList
            Console.WriteLine(level & " | " & n.Text)
            n.Level = level
            n.ParentNode = parentNode

            SetAllLevelsAndParents(n.ChildNodes, level + 1, n)
        Next
    End Sub
End Class

Razanust wrote:

displays it to the user one after another

Razanust wrote:

How can this be done?