I'm trying to remove all the sibling nodes in a treeview and I keep getting the error "Unknown Name" on the Remove line.
oParentNode = toNode.PARENT
iNodeIndex = oParentNode.FirstSibling.INDEX
DO WHILE .T.
IF iNodeIndex <> oParentNode.LastSibling.INDEX
THISFORM.oTree.Nodes(iNodeIndex).REMOVE
iNodeIndex = THISFORM.oTree.Nodes(iNodeIndex ).NEXT.INDEX
ELSE
THISFORM.oTree.Nodes(iNodeIndex).REMOVE
EXIT
ENDIF
ENDDO
Can anybody see what I'm doing wrong? TIA
Roi
'MCP' Visual FoxPro
In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!
