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
结果都受挫啦，郁闷呀

赞一个