Har ngn lite kod för hur man fixar en rekursiv funktion för att hämta fram data ur en trädstruktur.

Lyckades ej med mitt försök som finns nedan.


Public Sub getUserNodeList(ByVal NodeID As Int16, ByRef List As String)
Dim fldID, i As Int16
Dim myDataAdapter As New OleDbDataAdapter()
Dim myDataSet As New DataSet()
Dim myDataRow As DataRow
db.Init_DB()
SQL = "SELECT id FROM nodes WHERE parent_id = " & NodeID & " ORDER BY parent_id ASC"
myDataAdapter.SelectCommand = db.getCommand(SQL)
myDataAdapter.Fill(myDataSet, "Nodes")
For Each myDataRow In myDataSet.Tables("Nodes").Rows
List = List & " " & myDataRow("ID").ToString()
getUserNodeList(CInt(myDataRow("ID").ToString()), List)
Next
db.destroy()
end sub

Vad är det som inte fungerar då?
Tycker att du borde kolla på StringBuildern istället för att joxa med en string. StringBuildern är betydligt bättre att använda när man appendar till en sträng. Finns i System.Text

detta fel får jag,
Object reference not set to an instance of an object.
Tack ska kolla in StringBuildern

Marcus,

Någonstanns försöker du använda en variabel som inte pekar på något objekt. Kontrollera att alla dina variabler har blivit tilldelade ett värde innan du använder dem.

Varför använder du inte relationer i DataSet istället?

http://www.cshrp.net/content.aspx?showID=613

Fick det att fungera då jag stängde databaskopplingen.
Antagligen är inte detta den effektivaste lösningen, men det får duga så länge.


Public Sub getUserNodeList(ByVal NodeID As Int16, ByRef List As String)
Dim fldID, i As Int16
Dim myDataAdapter As New OleDbDataAdapter()
Dim myDataSet As New DataSet()
Dim myDataRow As DataRow
db.Init_DB()
SQL = "SELECT id FROM nodes WHERE parent_id = " & NodeID & " ORDER BY parent_id ASC"
myDataAdapter.SelectCommand = db.getCommand(SQL)
myDataAdapter.Fill(myDataSet, "Nodes")
db.destroy()

For Each myDataRow In myDataSet.Tables("Nodes").Rows
List = List & " " & myDataRow("ID").ToString()
getUserNodeList(CInt(myDataRow("ID").ToString()), List)
Next

end sub