Ich glaub ich habs, danke fkerber, hast mich auf den richtigen Weg gebracht.
Hier das Ergebnis (Rohformat)
Delphi-Quellcode:
select * from bla where parentid = 0 <- dataset
getit(0,0)
Sub getit(id, parentid)
Dim parent As DataRow
Dim ParentTab As DataTable
ParentTab = tsearch.Tables("select")
For Each parent In ParentTab.Rows
//erstelle was...
getit(parent.Item(0), parent.Item(2))
Next parent
end sub
Item(0) = ID
Item(2) = ParentID
Ich danke Euch!!!
Gruß Matt