以下是引用thb1993419在2019-6-4 08:54:26的发言：

表一（TD_CJXDM1.dbf）：cjxdm       cjxmc
            g01        语文
            g02        数学     
            g03        英语        


表二（zcj_temp1.dbf）：xh     g01    g02    g03   
           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)
? myfield    &&&& 加上这一句观察一下，再想对策
        IF myfield=cFieldName1 then
            alter table zcj_temp1 rename column (cFieldName1) to (cFieldName2)
            exit
        ENDIF
     endfor
endscan

以下是引用厨师王德榜在2019-6-4 10:00:56的发言：

对表 zcj_temp1进行一个 1 to Fcount()的遍历有点多余，可以只对TD_cjxdm1进行一次Scan就可以了。
LOCAL     cFieldName1 , cFieldName2  as String
SELECT TD_CJXDM1
SCAN
    cFieldName1 = UPPER(allt(cjxdm))
    * 万一有数字开头的，就加下划线
    cFieldName2 = IIF(ISDIGIT( LEFTC(cjxmc,1)) , "_"+allt(cjxmc) , allt(cjxmc))  
    IF FSIZE(cFieldName1,'zcj_temp1') > 0 THEN
        alter table zcj_temp1 rename column (cFieldName1) to (cFieldName2)
    ENDIF
ENDSCAN

以下是引用gs2536785678在2019-6-4 12:29:26的发言：

是啊，我的经验，VF表的字段尽量是英文的，题目中的学科完全可以用
XK01，XK02，.....