Close Databases All
lcExcelFileName=Getfile('xls', '','', 0, '选择一个Excel表,另存为Dbf表,Excel表的首行内容做为Dbf表的字段名')
If Empty(lcExcelFileName)
   Return
Endif
PUBLIC oldfield,newfield,aa
aa=""
oldfield=""
newfield=""
Import From (lcExcelFileName) Type Xl5  && Xl8 也可以为 Xl5
lcTmpDbfName=Juststem(Dbf())
gnFieldcount = AFIELDS(gaMyArray)  && 创建数组。
FOR nCount = 1 TO gnFieldcount
    oldfield=ALLTRIM(gaMyArray(nCount,1))  && 显示字段名。
    newfield=evaluate(Field(nCount))
?oldfield
?newfield
ALTER table &lcTmpDbfName RENAME COLUMN Field(nCount) TO evaluate(Field(nCount))&&无法通过win7 64 vfp9.0

ENDFOR

报什么错误

语法错误

import导入dbf字段名是a，b，c...表dbf的第一条记录是字段名
我有两个思路：
1、用alter去修改字段名
2、修改数组中的元素，然后用数组创立dbf
结果都受挫啦，郁闷呀

修改字段：alter table 表名 alter column 字段名 类型(宽度[,小数位] )

ALTER TABLE命令中的RENAME...TO...子句中只能使用常量，不能使用表达式。如果该处常量会有变化，只能用宏替换或名表达式解决。
比如：
Field1='课程编号'
Field2='KCBH'
ALTER TABLE Jxap RENAME (Field1) TO (Field2) &&这里是用名表达式的例子
ALTER TABLE Jxap RENAME &Field2 TO &Field1 &&这里是用宏替换的例子

如果你看懂这个例子，相信你会知道应该如何改自己的代码了。

赞一个