Populating Treeview with N- Level Tree Structure Dynamically in VB.Net

[Chirsi]

From last two weeks I was facing a problem regarding populating a treeview on a vb .net form , with the data from a table which contains N level of child nodes. I searched but i couldnt find exact solution, anyways finally I was able to solve it using recursive function....

Here is the code... The database table has two fields one is AcCode and 2nd is Parent ID...

Private Sub AddTreeNodes(ByRef tv As TreeView)

Dim tda As SqlDataAdapter

Dim tds As DataSet

Dim tdv As DataView

Dim node As TreeNode

Dim pnode As TreeNode

''Clear Tree View

tv.Nodes.Clear()

'Add Top most Node

node = tv.Nodes.Add("0", "Chart of Accounts of " & gCompanyName, 1)

pnode = node

'Check How many Level Exists

Try

tda = New SqlDataAdapter("SELECT * FROM Acc_AccChart Where AcLevel = 1 " & _

" AND CompanyID = " & gDefaultCompany & " ORDER BY AcCode", cn)

tds = New DataSet

tda.Fill(tds, "Acc_AccChart")

tdv = New DataView(tds.Tables(0))

If tdv.Count > 0 Then

For Each tdr As DataRow In tdv.Table.Rows

''Add Head of Accounts

node = pnode.Nodes.Add(tdr.Item(0).ToString(), tdr.Item(0).ToString() & _

" - " & tdr.Item(2).ToString(), IIf(tdr.Item(10).ToString() = "True", 2, 1))

Call AddChildNodes(node, tdr.Item(0).ToString())

Next

End If

Catch ex As SqlException

MessageBox.Show(ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)

Me.Close()

Finally

tv.Nodes("0").Expand()

End Try

Exit Sub

End Sub

Private Sub AddChildNodes(ByRef node As TreeNode, ByRef nodeID As String)

Dim tda As SqlDataAdapter

Dim tds As DataSet

Dim tdv As DataView

Dim ppnode As TreeNode

ppnode = node

Try

tda = New SqlDataAdapter("SELECT * FROM Acc_AccChart WHERE CompanyID = " & _

gDefaultCompany & " AND AcLinked = '" & nodeID & "' ORDER BY AcCode", cn)

tds = New DataSet

tda.Fill(tds, "Acc_AccChart")

tdv = New DataView(tds.Tables(0))

If tdv.Count > 0 Then

For Each tdr As DataRow In tdv.Table.Rows

node = ppnode.Nodes.Add(tdr.Item(0).ToString(), tdr.Item(0).ToString() & _

" - " & tdr.Item(2).ToString(), IIf(tdr.Item(10).ToString() = "True", 2, 1))

'RECURSIVE CALL

Call AddChildNodes(node, tdr.Item(0).ToString())

Next

Else

Exit Sub

End If

Catch ex As Exception

MessageBox.Show(ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Error)

Me.Close()

Finally

tda = Nothing

tds = Nothing

tdv = Nothing

End Try

End Sub