title image


Smiley Da fehlt ja übrigens noch der rekursive Abstieg...
wenn ich es richtig verstanden habe, muss es wohl so aussehen:



Private Sub Abstieg(P As Node, N As Node)

Dim C As Node

Set C = N.Child

Do Until C Is Nothing

CurrentDb.Execute "Insert Into tblErgebnisbaum_Hierarchie(ID,TeilID) " & _

" VALUES (" & P.Index & "," & C.Index & ")"

Abstieg P, C

Set C = C.Next

Me!TreeListe.Requery

DoEvents

Loop

End Sub



Private Sub Linearisieren_Click()

Dim N As Node

CurrentDb.Execute "DELETE FROM tblErgebnisbaum_Hierarchie"

For Each N In Me!TreeCtrl.Nodes

CurrentDb.Execute "Insert Into tblErgebnisbaum_Hierarchie(ID,TeilID) " & _

" VALUES (" & N.Index & "," & N.Index & ")"

Abstieg N, N

Next N

End Sub





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: