# Recursive function problem

I have a datatable with the following columns:

I need to sum the number columns for each Heading and Subheading. How do I do this using a recursive function? I vaguely remember recursion when I was studying, is it the best approach? The select statement that fills this datatable is ordered by Heading, Subheading.

In the future I may need to add deeper levels below the sub heading. I just need some pointers on how to get started writing the algorithm, the general idea of how to solve this.

Cheers

LVL 1
###### Who is Participating?

craigdev,

Ok, that makes it a slightly more interesting problem.

The following function returns a datatable when supplied with the source datatable, number of groupings and number of columns to sum.

The requirements are that the datatable has the grouping columns first, followed by the columns to total and that the ordering of the source table is heading,subheading,subsubheading etc.

Private Function SumTable(ByRef Source As DataTable, ByVal Groups As Int16, ByVal Sums As Int16) As DataTable
Dim Result As DataTable = New DataTable
Dim aryGroups() As String
ReDim aryGroups(Groups)
Dim intGroup As Int16
For intGroup = 0 To Groups - 1
Next
For intGroup = 0 To Sums - 1
Next
Dim intRow As Integer
Dim TargetRow As DataRow
For intRow = 0 To Source.Rows.Count - 1
Dim SourceRow As DataRow = Source.Rows(intRow)
Dim NewRow As Boolean = False
For intGroup = 0 To Groups - 1
If CType(SourceRow.Item(intGroup), String) <> aryGroups(intGroup) Then
NewRow = True
End If
Next
If NewRow Then
TargetRow = Result.NewRow
For intGroup = 0 To Groups - 1
aryGroups(intGroup) = CType(SourceRow.Item(intGroup), String)
TargetRow.Item(intGroup) = CType(SourceRow.Item(intGroup), String)
Next
For intGroup = 0 To Sums - 1
TargetRow.Item(Groups + intGroup) = 0
Next
End If
For intGroup = 0 To Sums - 1
Result.Rows(Result.Rows.Count - 1).Item(Groups + intGroup) = CType(CType(Result.Rows(Result.Rows.Count - 1).Item(Groups + intGroup), Double) + CType(Source.Rows(intRow).Item(Groups + intGroup), Double), String)
Next
Next
Return Result
End Function

This then will take any datatable in the appropriate format and return it summed on the various headings.

Tim
0

Hi craigdev,

Generally it is easier to let SQL do this for you if you already have the data there:

Tim Cottee
0

Author Commented:
true, thanks but then I have to write multiple select statements and try and combine all the results into a big table. What Im trying to do is make a versatile function that I can use to sum up any columns using a single select. The table that I mentioned may actually have several Heading and subheading columns and number columns. If I can get it to work in the case above then I can tweak the algorithm a bit for any case.
0

Author Commented:
thanks heaps that worked perfectly!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.