Real Software Forums

Dim node as TreeViewNode
Dim node2 as TreeViewNode
Dim node3 As TreeViewNode

me.ColumnHeaderText(0) = "Manuals V2"

node = new TreeViewNode("Aarrow",Folder)
node.AppendNode(new TreeViewNode("Modelc",Document))
node.AppendNode(new TreeViewNode("Modeld",Document))
node.AppendNode(new TreeViewNode("Modele",Document))
node.AppendNode(new TreeViewNode("Modelf",Document))

node2 = new TreeViewNode("Baxi",Folder)
node2.AppendNode(new TreeViewNode("Modelc",Document))
node2.AppendNode(new TreeViewNode("Modeld",Document))
node2.AppendNode(new TreeViewNode("Modele",Document))
node2.AppendNode(new TreeViewNode("Modelf",Document))

node3 = new TreeViewNode("Carver",Folder)
node3.AppendNode(new TreeViewNode("Modelc",Document))
node3.AppendNode(new TreeViewNode("Modeld",Document))
node3.AppendNode(new TreeViewNode("Modele",Document))
node3.AppendNode(new TreeViewNode("Modelf",Document))

node.SetExpanded(false,false)
node2.SetExpanded(false,false)
node3.SetExpanded(false,false)


me.AppendNode(node)
me.AppendNode(node2)
me.AppendNode(node3)

Sub load_tree()
  dim rs as RecordSet
  dim id, parent as integer
  dim keyword as string
  dim node, child as TreeViewNode
  
  TreeView1.RemoveAllNodes
  
  rs= db.SQLSelect("select * from keywords order by parent_id, keyword")
  
  while not rs.EOF    // this line causes a NilObjectException **************************
    id= rs.Field("key_id").IntegerValue
    keyword= rs.Field("keyword").StringValue
    parent= rs.Field("parent_id").IntegerValue
    
    // Parameter was missing
    child=  new TreeViewNode(keyword)
    
    child.ItemData= id
    if parent= 0 then
      // root level node
      TreeView1.AppendNode child
      
      // elseif eliminated, because node is Nil on first entering
      
    else
      // find the parent
      node= find_node(parent)
      node.AppendNode child
    end
    rs.MoveNext
  wend
  
End Sub

Function find_node(parent as integer) As TreeViewNode
  // iterate over root level nodes
  dim node as TreeViewNode
  dim i as integer
  
  for i= 0 to TreeView1.RootNodeCount- 1
    
    // RootNodes instead of RootNode
    
    node= TreeView1.RootNodes(i)
    if node.ItemData= parent then exit
    node= find_node(node, parent)
    if node<> nil then exit
  next
  
  return node
End Function

Function find_node(node as TreeViewNode, parent as integer) As TreeViewNode
  // recurse through child nodes
  dim child as TreeViewNode
  dim i as integer
  
  for i= 0 to node.NodeCount-1
    child= node.node(i)
    if child.ItemData= parent then exit
    child= find_node(child, parent)
    if child<> nil then exit
  next
  
  return child
  
End Function

load_tree

Problem signature:
Problem Event Name:   APPCRASH
Application Name:   DebugMy Application.exe
Application Version:   1.0.0.0
Application Timestamp:   4bd89424
Fault Module Name:   StackHash_c9c4
Fault Module Version:   0.0.0.0
Fault Module Timestamp:   00000000
Exception Code:   c0000005
Exception Offset:   00000000
OS Version:   6.0.6000.2.0.0.768.3
Locale ID:   2057
Additional Information 1:   c9c4
Additional Information 2:   77b42571e72e7c5327d3891f6667c8d7
Additional Information 3:   0375
Additional Information 4:   048361116c0178c9331ca2b6385bdbde

if node <> nil then
  node.SetExpanded(not node.Expanded,true)
end if

dim brands() as string
dim fileName as string
Dim j as Integer
dim count as Integer

brands=array("Aarrow","Acv","Aga","Albion") // the parent nodes
j=Ubound(brands)

for count = 0 to j
  if node.text = brands(count)   then
    node.SetExpanded(not node.Expanded,true)
  else
    fileName = Node.Text +".pdf"  // the child nodes
  end if
next