CREATE CURSOR t0(序号 i,姓名 C(10),其他 C(10))
INSERT INTO T0(序号,姓名,其他) VALUES(1,'A1','其他1')
INSERT INTO T0(序号,姓名,其他) VALUES(2,'A2','其他2')
INSERT INTO T0(序号,姓名,其他) VALUES(3,'A3','其他3')
INSERT INTO T0(序号,姓名,其他) VALUES(4,'A4','其他4')
INSERT INTO T0(序号,姓名,其他) VALUES(5,'A5','其他5')
INSERT INTO T0(序号,姓名,其他) VALUES(6,'A6','其他6')

BROWSE

swap(2,5,'t0')

BROWSE


FUNCTION swap(n1,n2,dbf1)
 SELECT * FROM (dbf1) WHERE 序号 = n1 INTO ARRAY a1
 SELECT * FROM (dbf1) WHERE 序号 = n2 INTO ARRAY a2
 SELECT (dbf1)
 GO n1
 GATHER FROM A2
 REPLACE 序号 WITH n1
 GO n2
 GATHER FROM A1
 REPLACE 序号 WITH n2
ENDFUNC

“现有一个表结构如下，想实现这样的效果”

如果是改表结构：
select c,a,b,d,e from 旧表 into table 新表

如果是改记录顺序：
select * from 旧表 order by 新序号 into table 新表

谢谢版主，你这个是交换两个记录的顺序吧？

sdta版主的方法可行

交换两个记录的顺序正好也是我需要的，谢谢！

*******如果序号，不是物理的序号，改改

CREATE CURSOR t0(序号 i,姓名 C(10),其他 C(10))
INSERT INTO T0(序号,姓名,其他) VALUES(1,'A1','其他1')
INSERT INTO T0(序号,姓名,其他) VALUES(3,'A3','其他3')
INSERT INTO T0(序号,姓名,其他) VALUES(5,'A5','其他5')
INSERT INTO T0(序号,姓名,其他) VALUES(2,'A2','其他2')
INSERT INTO T0(序号,姓名,其他) VALUES(4,'A4','其他4')
INSERT INTO T0(序号,姓名,其他) VALUES(6,'A6','其他6')

BROWSE

swap(2,5,'t0')

BROWSE

FUNCTION swap(n1,n2,dbf1)
SELECT * FROM (dbf1) WHERE 序号 = n1 INTO ARRAY a1
SELECT * FROM (dbf1) WHERE 序号 = n2 INTO ARRAY a2

SELECT (dbf1)
LOCATE FOR 序号=n1
GATHER FROM A2
REPLACE 序号 WITH n1
LOCATE FOR 序号=n2
GATHER FROM A1
REPLACE 序号 WITH n2
ENDFUNC

谢谢！你的方法具有通用性，可以任意调换记录的顺序

题目要求数据记录不变动的吧，只是重新定义序号（新序号）

是的！吹版

那到底是 记录保持不变 还是要 交换记录 ?