求助修改字段名的问题
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
