Vipera_lebetina,
Вот примерчик :

PROCEDURE TranspMat
* Транспонирование матрицы
* матрица:
***
* 1 2 3 4
* 5 6 7 8
* 9 10 11 12
* 13 14 15 16
*SET STEP ON
*Создаем курсор
CREATE CURSOR m1 (p1 n(2,0),p2 n(2,0),p3 n(2,0),p4 n(2,0))
* заносим в него данные
INSERT INTO m1 values(1,2,3,4)
INSERT INTO m1 values(5,6,7,8)
INSERT INTO m1 values(9,10,11,12)
INSERT INTO m1 values(13,14,15,16)
* смотрим результат
SELECT m1
BROWSE TITLE 'Исходная матрица '
** Создаем курсор для транспонирования
CREATE CURSOR t1 (p1 n(2,0),p2 n(2,0),p3 n(2,0),p4 n(2,0))
* Транспонируем
FOR ii=1 TO 4

FieldMatr = 'm1.P'+ALLTRIM(STR(ii)) && Поле, из которого берем

SELECT t1
APPEND BLANK

SELECT m1
it =1
SCAN
NameField = 'P'+ALLTRIM(STR(it)) && Поле, в которое втавляем
replace &NameField WITH &FieldMatr IN t1
it = it+1
ENDSCAN

ENDFOR
* смотрим результат - матрица повернута
SELECT t1
BROWSE TITLE 'Транспонированная матрица '

* Транспонируем еще раз, чтобы показать,
* что дважды транспонированнная матрица принимает исходное состояние

USE IN m1 && Закрываем исходную матрицу и создаем пустую исходную
CREATE CURSOR m1 (p1 n(2,0),p2 n(2,0),p3 n(2,0),p4 n(2,0))


FOR ii=1 TO 4

FieldMatr = 't1.P'+ALLTRIM(STR(ii)) && Поле, из которого берем

SELECT m1
APPEND BLANK

SELECT t1
it =1
SCAN
NameField = 'P'+ALLTRIM(STR(it)) && Поле, в которое втавляем
replace &NameField WITH &FieldMatr IN m1
it = it+1
ENDSCAN

ENDFOR

* смотрим результат - матрица повернута
SELECT m1
BROWSE TITLE 'Дважды транспонированная матрица '