Visual Basic

Private Delegate Sub SetNewDataRow(ByRef dt as DataTable, ByVal index As Integer, _
                         ByVal fno As Integer)

Private Sub SetNewRow(ByRef dt as DataTable, ByVal index As Integer, _
                         Optional ByVal fno As Integer = 0)
    ...

    If i < dt.Rows.Count - 1 Then

        If (Left(dt.Rows(i).Item(0).ToString, 4) <> Left(dt.Rows(i + 1).Item(0).ToString, 4)) Then

          nr = dt.NewRow
          nr.ItemArray = nra
          dt.Rows.InsertAt(nr, i + 1)

          Dim del As New delRowSumm(AddressOf SetNewDataRow)
          del(dt, i + 2, fno + 1)

        End If

      End If

    Next

    dt.Rows.Add(nra)

  End Sub

...

Dim fno As Integer = 0
Dim index as Integer = 0

While index <> -1

  index = SummRow(dt, index, fn)
  fno += 1

Loop

...

 Private Function SummRow(ByRef dt As DataTable, ByVal index As Integer, _
                             ByVal fno As Integer) As Integer

      Dim res As Integer = 0

      Dim arr() As Object = {"F" & (fno + 1).ToString & " Totals", _
                             0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

      For i As Integer = index To dt.Rows.Count - 1

        For j As Integer = 1 To dt.Columns.Count - 1
          If Not TypeOf dt.Rows(i).Item(j) Is DBNull Then
            arr(j) += CType(dt.Rows(i).ItemArray(j), Double)
          End If
        Next

        If i < dt.Rows.Count - 1 Then
          If (Left(dt.Rows(i).Item(0).ToString, 4) <> Left(dt.Rows(i + 1).Item(0).ToString, 4)) Then

            Dim nr As DataRow = dt.NewRow
            nr.ItemArray = arr
            dt.Rows.InsertAt(nr, i + 1)
            res = i + 2
            Exit For

          End If

        Else
          
          dt.Rows.Add(arr)
          res = -1
          Exit For
        End If

      Next

      Return res

    End Function

Private Function SummRow(ByRef dt As DataTable) As DataTable
 'EDIT - Oops - has a bug that causes runtime error
End Function

Private Function SummRow(ByRef dt As DataTable) As DataTable
   Dim tmp as DataTable = dt.Clone()

   Dim rowNum As Integer = 0
   Dim arr() As Object = {"", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
   Dim fNo As Integer = 0
   Dim column0 as String

   'Loop through the DataTable
   While rowNum < dt.Rows.Count
      'Set controls for next group of rows based on column0
      fNo += 1
      column0 = Left(dt.Rows(rowNum).Item(0).ToString, 4)
      arr(0) = "F"& fno.ToString & " Totals"

      'Loop through rows with same entry in column 0
      While (rowNum < dt.Rows.Count) AndAlso (column0 = Left(dt.Rows(rowNum).Item(0).ToString, 4))
         For colNum As Integer = 1 To dt.Columns.Count - 1
            If Not TypeOf dt.Rows(rowNum).Item(colNum) Is DBNull Then
               arr(colNum) += CType(dt.Rows(rowNum).ItemArray(colNum), Double)
            End If
         Next colNum
         tmp.Rows.Add(dt.Rows(rowNum)
         rowNum +=1
      End While

      'Add the running totals row on change of column0
      Dim newRow as DataRow = tmp.NewRow
      newRow.ItemArray = arr
      tmp.Add(newRow)
   End While

   Return tmp
End Function

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?