if (NodeData^.FGid = aID) AND ((NodeData^.FGTyp=0) OR (NodeData^.FGTyp=1)) Then
aID ist der übergebene Parameter und die ID des Parents.
Dazu muß ich evtl. noch folgendes sagen:
Ich lese aus der Datenbank
alle Knoten auf einmal ein ein (Roots und Childs), also nicht erst Hauptknoten und dann evtl. auf Klick die entsprechenden Unterknoten. Wobei alle Knoten in der
DB eine ID haben (wenn Unterknoten, dann steht ID des Parents drin, ansonsten "0". ID ist ein von mir vorgegebener Bezeichner -> Kostengruppennummer), ob sie Haupt-oder Unterknoten sind. Beim Select sortiere ich danach und vermeide so, dass evtl. Unterknoten angehängt werden sollen, zu denen es noch keinen Hauptknoten gibt.
Meine Aufbauroutine sieht dementsprechend so aus:
1. Hauptknoten? -> Hinzufügen
2. Unterknoten? -> Zu Hauptknoten mit entsprechender ID hinzufügen
Bei 2. benutze ich dann die o.g. Funktion, um im VTV den entsprechenden Haupt-Knoten zu finden.