2 svar · 250 visningar · startad av Prometheus
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
------------------
--// Mattias \\--
Portfolio
Prometheus
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.
------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."
[Redigerat av Pace den 07 feb 2002]
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! :)
------------------
--// Mattias \\--
Portfolio
Prometheus
[Redigerat av Prometheus den 08 feb 2002]