Treeview and check-boxes

[BjornF]

Dear All,

I am struggling with the tree view, in many ways it is very nice but not very easy to understand (for me)... I have constructed a tree using this sub (see also the jpg file - it's a grocery list if you are wondering).

Sub UpdateTree
tv.checkboxes=true
for i=0 to MaxCat-1
node1.Value=tv.AddNewNode(tblCat.Cell("Cat",i))
tblData.Filter("Cat LIKE '"&tblCat.Cell("Cat",i)&"'")
For k=0 to tblData.RowCount-1
node2.Value = node1.addnewnode(tblData.Cell("Artikel",k))
if StrLength(tblData.Cell("ToBuy",k))>0 then node2.Checked=True
Next
next
End sub

Once the tree is constructed I will check some of the boxes. After "leaving" the tree and continuing the program I want to find out which boxes have been checked (more precisely the node text for each box which has been checked), but I can't find out how to do this. (At the time of checking the boxes tv.action is not raised and so cannot be used.)

Any ideas on how to do this?

all the best / Björn

 

[specci48]

Hi BjornF,

you can browse through the tree with this little piece of code

Sub CheckTree
    For i = 0 To tv.Count - 1
        node1.Value = tv.GetNode(i)
        If node1.Checked = True Then
            ' do something for root
       ' name = node1.Text
   End If            
   For j = 0 To node1.Count - 1
             node2.Value = node1.GetNode(j)
       If node2.Checked = True Then
      ' do something for Child
      ' name = node2.text
       End If   
   Next
    Next
End sub

specci48

 

[BjornF]

Excellent !

thanks Specci48, I'll go off and play with this :sign0162:

Björn