title image


Smiley Re: TreeView mit (rekursiver ?) Funktion füllen
Hallo AJP,vielleicht hilft Dir das folgende Bsp. weiter. In der Tabelle FATHER_SON stehen Datensätze, die in einer hierarch. Beziehung (beliebiger Tiefe) zueinander stehen. Der "Vater" eines jeden Satzes wird durch das Feld FATHER_ID angegeben, Primärschlüssel ist ID. Die Tabelle sehe etwa so aus:idfather_idlabel1Root211321.1421.2541.2.1641.2.2721.3812982.11082.21113Dann setzten die beiden folgenden Subs die Tabelle in ein Treeview um:Public Sub build_tree() Dim tv As Control Dim root As Node Set tv = Forms![treeview_test]![treeview] With tv .LineStyle = tvwRootLines .LabelEdit = tvwManual .Nodes.Clear Set root = .Nodes.Add(, , , DLookup("label", "father_son", "id=1")) root.Expanded = True root.Tag = "1" Call build_subtree(tv, root) End With End SubPrivate Sub build_subtree(tv As Control, father_node As Node) Dim new_node As Node Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("select id, label from father_son where father_id = " & father_node.Tag) While Not rs.EOF With tv Set new_node = .Nodes.Add(father_node.Index, tvwChild, , rs!Label) new_node.Tag = CStr(rs!id) new_node.Expanded = True Call build_subtree(tv, new_node) End With rs.MoveNext Wend rs.Close Set rs = NothingEnd SubWenn Du willst, kann ich Dir eine kleine Bsp.-DB zumailen.Gruß K.K

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: