I am trying to bind childnodes with Radtreeview childnode. C

shailaja.bhatnagar

I am trying to bind childnodes with Radtreeview childnode. Code works fine on localhost and on development server but not on production.

It's creating "AMB Financial Groups Lists" childnode but not populating it with its child nodes.Web server files and database tables are identical on my localhost and on production server

Private Sub PopulateProductNodes(ByRef node As RadTreeNode)

Dim ds As New DataSet

Dim cNode As RadTreeNode

'Try

For x = 0 To node.Nodes.Count - 1

If node.Nodes(x).Nodes.Count > 0 Then

PopulateProductNodes(node.Nodes(x))

Else

'leaf

ds = clsRef.oclsCompany.GetCompStandardList(0, node.Nodes(x).Value)

If ds.Tables.Count > 0 Then

For i = 0 To ds.Tables(0).Rows.Count - 1

cNode = New RadTreeNode

cNode.Value = ds.Tables(0).Rows(i)(2)

cNode.Text = ds.Tables(0).Rows(i)(1)

node.Nodes(x).Nodes.Add(cNode)

If Trim(cNode.Text.ToLower) = "ambChild" Then

Dim dscustcomp As New DataSet

dscustcomp = clsRef.oclsCompany.GetCompStandardListItems(0, cNode.Value, sProdCode)

Dim AMBNode = New RadTreeNode(""ambChild" ", "ambChildGroupsNode")

AMBNode.Selected = TreeNodeSelectAction.Expand

Dim AMBLeafNode = New RadTreeNode

**For Each dr In dscustcomp.Tables(0).Rows

AMBLeafNode = New RadTreeNode(dr.Item("Display"), dr.Item("ID"))

AMBNode.Nodes.Add(AMBLeafNode)

Next**

node.Nodes(x).Nodes.Add(AMBNode)

End If

If node.Nodes(x).Selected <> TreeNodeSelectAction.Expand Then

node.Nodes(x).Selected = TreeNodeSelectAction.Expand

End If

'Finally

ds.Dispose()

ds = Nothing

cNode = Nothing

'End Try

End Sub

5 Replies

Know the answer? Post it — somebody with the same question will find it here.

Nilesh Shah9y ago
I think the problem is with populating dataset in the loop

it is expensive operation

Can't you just call the DB only once before the loop, and hold value in some variable

then in the loop there is only on the in memory operation, no DB call.

you ay need to modify the DB query to fetch the values in such a way that it can work for whole tree view
shailaja.bhatnagar9y ago
Do you mean about following loop

If Trim(cNode.Text.ToLower) = "ambChild" Then

Dim dscustcomp As New DataSet

dscustcomp = clsRef.oclsCompany.GetCompStandardListItems(0, cNode.Value, sProdCode)

Dim AMBNode = New RadTreeNode(""ambChild" ", "ambChildGroupsNode")

AMBNode.Selected = TreeNodeSelectAction.Expand

Dim AMBLeafNode = New RadTreeNode

**For Each dr In dscustcomp.Tables(0).Rows

AMBLeafNode = New RadTreeNode(dr.Item("Display"), dr.Item("ID"))

AMBNode.Nodes.Add(AMBLeafNode)

Next**

node.Nodes(x).Nodes.Add(AMBNode)

End If

Actually I want to check if childnode text is "ambChild" then I want to populate node using the value of the node in the background I am taking the value of the node and running a select query which populates the dataset and then I bind childenode with the dataset data. If I get rid of for loop how should I achieve this scenario? Please help
Nilesh Shah9y ago
I see you have 2 for loops inside the function and that function too is recursively called

no doubt it will hang in execution
shailaja.bhatnagar9y ago
It just timeouts.
Nilesh Shah9y ago
what is not working on production server? any error you get?