Rekursiv Träd-Sub med Array

ASP

2 svar · 272 visningar · startad av Prometheus

Medlem sedan mars 2001363 inlägg
Trådstart#1

Försöker hämta till ett forum med GetRows och sedan jobba genom arrayen med denna lilla rekursiva funktion. Problemet är att den inte vill "stega bakåt", det blir bara
tråd
svar
svar på svar
...sen går den som sagt inte bakåt. Nån som ser någe fel? Mitt huvud värker.... ;)

	Sub Childs(intParent, intDepth, intIndent)
		For X = 0 To intDepth
			If arrRows(1,X) = intParent Then
				For Z = 0 To intIndent
					Response.Write("  ")
				Next
				Response.Write("<a href='zb_read.asp?id=" & arrRows(0,X) & "'>" & arrRows(2,X) & "</a><br>")
				Call Childs(arrRows(0,X), intDepth, intIndent + 1)
			End If
		Next
	End Sub
Medlem sedan juni 20019 024 inlägg
#2

intDepth ökas väl aldrig på, eller?

Call Childs(arrRows(0,X), intDepth [b]+ 1[/b], intIndent + 1)

[r] ... och For X = 0 To intDepth, gör väl att den startar på samma ställe hela tiden.

Medlem sedan mars 2001363 inlägg
#3

Nejdå, intDepth är antalet rader i arrayen och ska inte ändras, men jag löste det precis.
Det var bara att deklarera variablerna X och Z lokalt i suben istället. :r
Tack för hjälpen ändå, Pace! :)

261 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
119 ms — ändringar (db)