G
Guest
this is what i have written while builiding the treeview i already have and i
need to go deeper..
'------------------START---------------------------------
'Loop thru Requirement Types
For Each objReq In objBaseline.Requirements
'DoEvents ' Allow for a break, so user can cancel
Set objNode = TreeView1.Nodes.Add()
Set objNode.parent =
TreeView1.Nodes("RequirementTypes" & "-" & objProject.Name & "-" &
objBaseline.Name & "-" & objReqType.Name)
objNode.Text = objReq.Name
objNode.Image = "Type"
Set objNode.Tag = objReq
objNode.Key = "Type" & "-" & objProject.Name & "-" &
objBaseline.Name & "-" & objReqType.Name & "-" & objReq.Name 'Has to be Unique
'objNode.parent.Expanded = False 'Collapse the
Baseline Nodes
'objNode.parent.parent.Expanded = False 'Collapse
the Project Nodes
Next objReq
'---------------------END---------------------------------------
Iam getting an error at "Set objNode.parent" saying object not found. why
wud that be?
thank you
need to go deeper..
'------------------START---------------------------------
'Loop thru Requirement Types
For Each objReq In objBaseline.Requirements
'DoEvents ' Allow for a break, so user can cancel
Set objNode = TreeView1.Nodes.Add()
Set objNode.parent =
TreeView1.Nodes("RequirementTypes" & "-" & objProject.Name & "-" &
objBaseline.Name & "-" & objReqType.Name)
objNode.Text = objReq.Name
objNode.Image = "Type"
Set objNode.Tag = objReq
objNode.Key = "Type" & "-" & objProject.Name & "-" &
objBaseline.Name & "-" & objReqType.Name & "-" & objReq.Name 'Has to be Unique
'objNode.parent.Expanded = False 'Collapse the
Baseline Nodes
'objNode.parent.parent.Expanded = False 'Collapse
the Project Nodes
Next objReq
'---------------------END---------------------------------------
Iam getting an error at "Set objNode.parent" saying object not found. why
wud that be?
thank you