上图所示：
1、字段列数未知（也就是说不知道几列）。有可能到Q列,也有可能到M列，但不会超过26个英文字母。
2、数据表中第一行内容未知，列数未知。

问题：把字段名称替换为数据表第一行内容。
求代码！

谢谢

小弟在线等待！请大哥大姐给予回复！

TonyDeng版主
好不容易把你给盼来了，
帮解决一下吧！
这个问题困扰多天了！

尧的故乡您好：
vfp SQL程序神人！
我学习了一天时间
mzd=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
FCOUNT(my_dbf)
都已掌握，就是
m_ren="ALTER TABLE "+ "&my_dbf rename column "+ mzd+" to "+ ALLTRIM(CHRTRAN(&mfilename," ",""))
无论如何就是解决不了。
谢谢 尧的故乡
我永远是你的fans!

我的程序代码是这样的，就是执行不了。
CLEAR ALL
SET SAFETY OFF
SET PATH TO "c:\documents and settings\administrator\桌面\新建文件夹"
USE "c:\documents and settings\administrator\桌面\新建文件夹\bb.dbf" IN 0 ALIAS bb
SELECT * FROM bb WHERE RECNO()=1 INTO ARRAY ziduan
sm=FCOUNT('bb')
gnField = AFIELDS(gaMyArray)
?gaMyArray(1,1)
?ziduan(1)
zd=""
?sm
i=0
FOR ii=1 TO sm
?ii
 IF ii=INT(sm)
  zd=zd+"gaMyArray("+ALLTRIM(str(ii))+",1) as ziduan("+ALLTRIM(str(ii))+")"
 ELSE
  zd=zd+"gaMyArray("+ALLTRIM(str(ii))+",1) as ziduan("+ALLTRIM(str(ii))+"),"
 ENDIF
NEXT

zz= "SELECT "+zd+" FROM bb INTO TABLE xy"
&(zz)     程序中间“总是令起一行”

附件

不是数据表的行列转换，以前遇见这个问题，没有认真考虑过。现在又遇见了，想解决一下。
如果这个问题不会，就请参考高手“尧的故乡”的最佳答案。
如果会了，就再学习一下“尧的故乡”的简单方法！

谢谢蝙蝠侠的提示。
我想用第二种方法代码转换
只是我的程序出现问题了

谢谢尧的故乡、谢谢蝙蝠侠！
我非常感谢你们，在百忙之中给予回复！

感谢月沐庭轩、感谢taifu945，感谢所有的朋友！