Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Groups and sub-groupe with SFR
Message
From
22/03/2005 11:26:50
 
 
To
21/03/2005 13:06:17
General information
Forum:
Visual FoxPro
Category:
Stonefield
Environment versions
Visual FoxPro:
VFP 7 SP1
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00997069
Message ID:
00998139
Views:
15
This message has been marked as the solution to the initial question of the thread.
Hi Doug,

Thanks a lot for that code. That helped a lot!

>>But when it gets to the addition of the "Test2" group then I receive the error that I mentioned in my original post. loGroup is not initialized properly. So if I understand this error correctly it tells me that no node for "Test" was not created but what I don't get is why I did'nt get an error message for the creation of that "Test" group.
>
>It looks like the code in AddGroup isn't adding the parent node if it doesn't exist. Try replacing the assignment to loParent with the following:
>
>
if type('toTree.Nodes[lcParent]') <> 'O'
>  loParent = toTree.Nodes.Add(, 1, lcParent, substr(lcParent, 2), 1)
>else
>  loParent = toTree.Nodes[lcParent]
>endif type('toTree.Nodes[lcParent]') <> 'O'
>
>Doug
*******************************************************
Save a tree, eat a beaver.
Denis Chassé
Previous
Reply
Map
View

Click here to load this message in the networking platform