表一（TD_CJXDM1.dbf）：cjxdm       cjxmc
            Gk01        语文
            Gk02        数学     
            Gk03        英语        


表二（zcj_temp1.dbf）：xh     Gk01    Gk02    Gk03   
           10011    85      90     77
           10058    99      70     73
           10069    55      43     88

想将表二改为如下：xh     语文    数学   英语   
         10011    85     90    77
         10058    99     70    73
         10069    55     43    88

上面的例子大致就是我想实现的功能，自己也写了代码，但是运行之后，表二字段名并没有改，不知道是为什么，有大神帮指导一下嘛？

附上自己的代码：
use zcj_temp1
select dist cjxdm,cjxmc from TD_CJXDM1 into cursor curTmp
scan
    cFieldName1 = allt(cjxdm)
    cFieldName2 = "_"+allt(cjxmc)  &&怕万一有数字开头的，所以统一都加了下划线
    select zcj_temp1
    for k=1 to fcount()
        myfield=fields(k)
        IF myfield=cFieldName1 then
            alter table zcj_temp1 rename column (cFieldName1) to (cFieldName2)
            exit
        ENDIF
     endfor
endscan

[此贴子已经被作者于2019-6-4 11:43编辑过]

试了下，发现输出的所有都是第一个字段的字段名，这是为什么呢？

提示这句“IF FSIZE(cFieldName1,'zcj_temp1') > 0 THEN ” 文件不存在

刚才代码弄错了，我又试了下，“zcj_temp1”里所有字段都能正常输出显示到屏幕上，那是怎么回事呢，是不是alter table语句的问题？还是上面if判断条件的问题？

因为我后面想导成excel，一些固定的字段比如姓名什么的我可以通过select直接as为中文，但是这些科目的代码比较多，而且也不固定，所以想这样来搞

 改完之后，提示这句“alter table zcj_temp1 rename column (cFieldName1) to (cFieldName2)”语法错误，是怎么回事？

谢谢您给的建议，我觉得这样的思路非常好，但是有一点不太明白：
表一和表二其实并不固定，表一里面有40多个cjxdm和cjxmc的，同理表二的字段名也有很多将近40多个，这种情况怎么弄？有没有办法只对两个表进行操作，具体怎么写呢？
非常感谢您的指导！

思路我很清楚啊，表一里面就是纯代码表，没有重复的，但是成绩项有很多很多个
我的目的也很明确，就是为了按照表一的代码，来生成表二的一个excel，其中这些字段名都用中文来表示

非常感谢，用你的方法成功了！感谢耐心指导啊！