* курсор для промежуточных данных

create cursor cur1 (field0 i)

* основная таблица(курсор)

create cursor table1 (f1 i, f2 i, f3 i, f4 i, f5 i)

INSERT INTO table1 (f1, f2, f3, f4, f5 );
   VALUES ( 20 ,  10 ,  30 ,  15 ,  40 )

* переписываем "горизонтальные" данные "вертикально"

for i =  1  to fcount()
select table1
num1 = field(i)
num2 = eval(num1)
select cur1
append blank
repl field0 with num2
endfor

* сортируем данные по возрастанию

select * from cur1 ;
into cursor cur2 ;
order by  1 

go top

* переписываем в исходную таблицу (курсор)

for i1 =  1  to recc()
select cur2
go i1
num1 = cur2.field0
select table1
name1 = field(i1)
repl &name1 with num1
endfor

* смотрим, что получилось

select table1
browse