Sortera en Array

[www.essential.se]

Hej!

 

Nu har jag stött på ett problem!

Jag har skapat en array, med hjälp av rs.getRows() och ska visa samtliga poster fyra gånger, men olika sorterat.

 

Finns det något bra sätt att sortera en array, eller måste jag bygga en egen funktion för det?

 

[www.essential.se]

Jag löste det med följande funktion:

function orderArray(thisArray,z)
	for i = 0 to uBound(thisArray,2)
   			for y = i + 1 to uBound(thisArray,2)
	        	if thisArray(z,i)>thisArray(z,y) Then 
				a = thisArray(z,i)
				thisArray(z,i) = thisArray(z,y)
				thisArray(z,y) = a
	        	End If
		Next
	Next
	orderArray=thisArray
End Function

 

[Nollis]

Tjena!

 

Om jag inte misstar mig så är det en Bubble-sort du gör i din funktion. Det är en klassisk sorteringsalgoritm, men efter vad jag förstår så har den usel prestanda...

 

Jag skulle istället rekommendera dig att använda den sorteringsfunktionalitet som ADO erbjuder, i och med att du ändå hämtar datat till din Array från ett recordset. Se Microsofts dokumentation i länken nedan...

 

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdapro06_2.asp

 

Suppose a Recordset contains three fields named firstName, middleInitial, and lastName. Set the Sort property to the string, "lastName DESC, firstName ASC", which will order the Recordset by last name in descending order, then by first name in ascending order. The middle initial is ignored.

 

/ Johan