>Are you sure that node exist? When you remove some node, other nodes' indexes shifted. So last node index no longer valid.
I would think so. It errors on the first time through the loop, before anything gets deleted.
So if the indexes change how would I do it? Just keep using the FirstSibling index until Children returns .F.?
>
>>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!