trouble with a treeview add

[brad langhorst]

I'm going over a result set and adding results as levels on
the tree control.

when stepping through the code i see execution switch to
the calling subroutine as soon as the parentnode.node s.add
is called. Seems like i'm trampling some variable (btw:
why doesn't that raise an error?)

I'm a fairly experienced programmer but i'm new to vb.net
so maybe this is something trivial...

here's my code

While rdrCCOA.Read
'results must be ordered by coalinekey and name to work

levelname = CStr(rdrCCOA.Ge tValue(0))
levelpart = CStr(rdrCCOA.Ge tValue(1))
level = CInt(rdrCCOA.Ge tValue(2))
coalinekey = CInt(rdrCCOA.Ge tValue(3))
acctno = CStr(rdrCCOA.Ge tValue(4))

'keep adding until coalinekey changes
Select Case level
Case 1 'create new root node if this one is not
already there
parentNode = findNode(acctTr ee, levelname)
If (IsNothing(pare ntNode)) Then 'not already
present add it
parentNode = New TreeNode(leveln ame)
acctTree.Nodes. Add(parentNode)
End If

Case Else 'add below that node
If IsNothing(paren tNode) Then Throw New
Exception("deep node found with no parent")
parentNode = findNode(acctTr ee, levelname)
If IsNothing(paren tNode) Then 'not already
present, add it
newNode = New TreeNode(leveln ame)
parentNode.Node s.Add(newNode)
parentNode = newNode
End If
End Select
End While

[Antoine Cote [MSFT]]

Hello Brad,

when the code steps out suddently like this, it often indicates that an exception occured. You could try to run your program under the debugger and turn on
the "Break on exceptions" feature. Here's how to do it once VS is in debug mode:

1. Go to the Debug/Exceptions... menu
2. Click on the "Common Language Runtime Exceptions" item.
3. Set the option for "When an exception is thrown" at the bottom of the dialog to "Break into the debugger"
4. Execute the line of code in question (parentNode.Nod es.Add)

In your example below you do the following:

parentNode = findNode(acctTr ee, levelname)
If IsNothing(paren tNode) Then 'not already
present, add it
newNode = New TreeNode(leveln ame)
parentNode.Node s.Add(newNode)
parentNode = newNode
End If
If the findNode method returns Nothing then IsNothing will return True and you will end up calling parentNode.Node s with an invalid reference. So the
problem you're having might be caused by an 'Object reference not set' exception.

HTH

Antoine
Microsoft Visual Basic .NET

--------------------Content-Class: urn:content-classes:message
From: "brad langhorst" <br***@langhors t.com>
Sender: "brad langhorst" <br***@langhors t.com>
Subject: trouble with a treeview add
Date: Sun, 24 Aug 2003 22:15:23 -0700
Lines: 45
Message-ID: <27************ *************** *@phx.gbl>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Newsreader: Microsoft CDO for Windows 2000
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
Thread-Index: AcNqx+MPmdQcRuE 6QE+ymSh95WPH+A ==
Newsgroups: microsoft.publi c.dotnet.langua ges.vb
Path: cpmsftngxa06.ph x.gbl
Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:130143
NNTP-Posting-Host: TK2MSFTNGXA06 10.40.1.53
X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb

I'm going over a result set and adding results as levels on
the tree control.

when stepping through the code i see execution switch to
the calling subroutine as soon as the parentnode.node s.add
is called. Seems like i'm trampling some variable (btw:
why doesn't that raise an error?)

I'm a fairly experienced programmer but i'm new to vb.net
so maybe this is something trivial...

here's my code

While rdrCCOA.Read
'results must be ordered by coalinekey and name to work

levelname = CStr(rdrCCOA.Ge tValue(0))
levelpart = CStr(rdrCCOA.Ge tValue(1))
level = CInt(rdrCCOA.Ge tValue(2))
coalinekey = CInt(rdrCCOA.Ge tValue(3))
acctno = CStr(rdrCCOA.Ge tValue(4))

'keep adding until coalinekey changes
Select Case level
Case 1 'create new root node if this one is not
already there
parentNode = findNode(acctTr ee, levelname)
If (IsNothing(pare ntNode)) Then 'not already
present add it
parentNode = New TreeNode(leveln ame)
acctTree.Nodes. Add(parentNode)
End If

Case Else 'add below that node
If IsNothing(paren tNode) Then Throw New
Exception("dee p node found with no parent")
parentNode = findNode(acctTr ee, levelname)
If IsNothing(paren tNode) Then 'not already
present, add it
newNode = New TreeNode(leveln ame)
parentNode.Node s.Add(newNode)
parentNode = newNode
End If
End Select
End While

--

This posting is provided "AS IS" with no warranties, and confers no rights. Use of included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm

Note: For the benefit of the community-at-large, all responses to this message are best directed to the newsgroup/thread from which they originated.