求助：如何把一个DBF表的第3列至第5列的字段名名称复制到另一个DBF表的指定位置？举例：要把01表的第3列、第4列、第5列的字段名名称分别复制到02表的第1名、第2名、第3名的第一行位置。该如何编程实现？
01表截图：                                           02表截图：
                           

附上压缩的01表：

sele 02表
repl 第1名 with "上海",第2名 with "北京",第3名 with "天津"

啊，是我的表达有问题，我的意思是说，在01表中，可能不再是“上海”、“北京”、“天津”，可能会变成“广东”、“湖南”等等。也就是说，我想把第3列至第5列的字段名名称（不管它们是什么汉字）复制02表的指定位置。

提示楼主一下：函数FIELD()可以套取到字段名，该函数的简单格式是：FIELD(字段序号[,工作表区号/工作表别名])。以你的例子来说：先打开01表，然后如执行命令“ABC=FIELD(3)”，则ABC中的值就是“上海”。要是想套取第3-5列的字段名，可以用以下代码：
USE 01表
DIMENSION FName[3]
FOR I=1 TO 3
   Fname[I]=FIELD(I+2)
NEXT
取出字段名后如何加入到另一个表中的记录我就不给出代码了，相信你应该会做。

我自作聪明的做成这样：
clos all
USE 01表
DIMENSION FName[3]
FOR I=1 TO 3
   Fname[I]=FIELD(I+2)
NEXT
第1名=FIELD(3)
第2名=FIELD(4)
第3名=FIELD(5)
SELECT 第1名,第2名,第3名 FROM 01表 INTO TABLE 02表

生成的是：


不正确的地方有：
（1）、字段名称应为“第1名”、“第2名”、“第3名”的，变成了“Exp_1”、“Exp_2”、“Exp_3”，如何才能让字段名称变为“第1名”、“第2名”、“第3名”？
（2）、生成的02表应为一行，但它却生成了4行。只需一行就解决了，怎样才能生成的是一行？

我自作聪明的做成这样：
clos all
USE 01表
DIMENSION FName[3]
FOR I=1 TO 3
   Fname[I]=FIELD(I+2)
NEXT
第1名=FIELD(3)
第2名=FIELD(4)
第3名=FIELD(5)
SELECT 第1名,第2名,第3名 FROM 01表 INTO TABLE 02表

生成的是：


不正确的地方有：
（1）、字段名称应为“第1名”、“第2名”、“第3名”的，变成了“Exp_1”、“Exp_2”、“Exp_3”，如何才能让字段名称变为“第1名”、“第2名”、“第3名”？
（2）、生成的02表应为一行，但它却生成了4行。只需一行就解决了，怎样才能生成的是一行？

我只发送一次，怎么会回帖了两次？奇怪啊。

clos all
USE 01表
DIMENSION FName[3]
FOR I=1 TO 3
   Fname[I]=FIELD(I+2)
NEXT
SELECT 序号,种类,field(3) 第1名,field(4) 第2名,field(5) 第3名 FROM 01表 where recn()=1 into dbf 02表

贴出最后达到的效果图