rekursiv sub med array

7 svar · 253 visningar · startad av aleborg 14 maj 2002

aleborgMedlem sedan jan. 20013 341 inlägg

Trådstart14 maj 2002 10:54#1

Har en sub som ser ut ungefär så här:

sub getLoop( intId, indent )
	 Set Visa = Server.CreateObject("Webshop.Admin_Products")
	 categories = Visa.GetCatProdList(Session("Webshop"), intId)
	 Set Visa = Nothing
	 If Not IsNull(categories) Then
	 	For j = 0 To Ubound(categories,2)
			For k = 0 To indent
				'mellanrum
			Next
			
			Response.write categories(1,j)
			call getLoop( categories(0, j) , indent+1 )
		Next
	 End If
end sub

Problemet är att det visas bara en "tråd" med sub katergorier, dom andra försvinner

tråd
----sub1
---------sub1-1
----sub2

blir endast

tråd
----sub1
---------sub1-1

Förmodar att det är array'n som ställer till det, men hur ska jag lösa det?

LR^evil.sidMedlem sedan maj 2002560 inlägg

14 maj 2002 14:13#2

vad menas med " ubound() "?

aleborgMedlem sedan jan. 20013 341 inlägg

14 maj 2002 14:19#3

Ubound tar fram antalet i array'n

dvs
myArray(0)="hej"
myArray(1)="hej"
myArray(2)="hej"

så skulle Ubound(myArray) bli 3
Har jag starkt för mig

LR^evil.sidMedlem sedan maj 2002560 inlägg

14 maj 2002 14:41#4

thnx..

LAMPMedlem sedan mars 2002777 inlägg

14 maj 2002 15:34#5

Ursprungligen av aleborg **Ubound tar fram antalet i array'n

dvs
myArray(0)="hej"
myArray(1)="hej"
myArray(2)="hej"

så skulle Ubound(myArray) bli 3
Har jag starkt för mig :e**

Nej, Ubound anger sista indexet i en array, det vill säga att det hade resulterat i 2 i detta fallet. Notera att första indexet i en array är 0.

LR^evil.sidMedlem sedan maj 2002560 inlägg

14 maj 2002 15:36#6

thnx igen..

LarsGMedlem sedan dec. 200012 464 inlägg

14 maj 2002 16:10#7

Om du lägger till en

dim j,k

i din sub

Jag testade logiken och det fungerar som det skall tycker jag.

aleborgMedlem sedan jan. 20013 341 inlägg

14 maj 2002 16:43#8

Du har rätt LarsG, Ubound ger sista indexet

Jag hade dimmat det redan i början av dokumentet, men när jag flyttade det till subben så fungerade allt som det skulle!

TACK