Hej
Har en tvådimensionell array enligt följande:

Test(0).A=10
Test(0).B=0,1
Test(1).A=50
Test(1).B=0,3
Test(2).A=30
Test(2).B=0,2
Test(3).A=100
Test(3).B=0,15

Vill sortera den efter värdet i A så att följande erhålls
Test(0).A=10
Test(0).B=0,1
Test(1).A=30
Test(1).B=0,2
Test(2).A=50
Test(2).B=0,3
Test(3).A=100
Test(3).B=0,15

Klarar av det med en endimensionell array men ej med en tvådimensionell
Är det någon som kan hjälpa mig ?

Den är inte tvådimensionell, så det borde inte vara något större problem.

Byt ut ditt villkor
if array(i) > array(j)

till
if array(i).A > array(j).A

och du får nog göra en något krångligare swap-grej.

Så enkelt var det inte

som du ser så har Test(2) blivit Test(1) och tvärtom

Test(1).A=50
Test(1).B=0,3
Test(2).A=30
Test(2).B=0,2

Test(1).A=30
Test(1).B=0,2
Test(2).A=50
Test(2).B=0,3

Jag förstår inte vad du menar är fel.
Hur ser din sorteringsalgoritm ut?

Jag har ingen algorim ännu, därför frågan
Skillnaden är att indexen har bytt plats

Vill ha den variabeln med lägst värde på 'A' till index 0 (Test(0).A)

Jag förstår verkligen inte problemet.

Låt säga att du har en Bubble sort:

dim arr(1 to 10) as integer
'...
for i = 1 to 10
  for j = i to (10-i+1)
    if arr(i) > arr(i+1) then
      tmp = arr(i)
      arr(i) = arr(i+1)
      arr(i+1) = tmp
    end if
  next j
next i

Tack, detta löste nog problemet

Problemet var att jag även måste flytta med mig värdet för B

Gjorde så här:

dim arr(1 to 10) as integer
'...
for i = 1 to 10
  for j = i to (10-i+1)
    if arr(i).A > arr(i+1).A then
      tmp = arr(i).A
      tmp2=arr(i).B
      arr(i) = arr(i+1)
      arr(i+1).A= tmp
      arr(i+1).B=tmp2
    end if
  next j
next i