各位大师，我想用一个表的记录来建立一个新表，字段名为原表的某字段记录，以下是代码，但运行总说语法不对，请问该怎么改？能实现吗?急啊，谢谢大家了!!对了，是vfp9.0的

USE data\tzfsk.dbf IN 0 ALIAS  特征分数库
DIMENSION 数组a(RECCOUNT(),2)
i=1
scan
   数组a(i,1)=tzfs
    数组a(i,2)=ALLTRIM(bz)
   IF i=1
    zd=数组a(i,2)+" c10"
    ELSE
    zd=zd+","+数组a(i,2)+" c10"
   ENDIF
   SELECT  特征分数库
i=i+1
ENDSCAN
cREATE TABLE data\tjk.dbf (xz c10,&zd)

表

[ 本帖最后由 wpyingchneg 于 2013-10-16 22:00 编辑 ]

字段名命名规则其中的一条是：字段名不能以数字开头，其中不能有小数点与≥。你的错误可能就属于这种情况。因此在生成字段结构前要去掉这些符号。可以参考下列代码生成表结构：

SELECT 'FS'+CHRTRAN(STRTRAN(BZ,[≥],[]),[.],[]) FIELD_NAME,'N' AS FIELD_TYPE,5 FIELD_LEN,1 FIELD_DEC FROM TZFSK INTO ARRAY ABZ
CREATE CURSOR NEWTABLE FROM ARRAY ABZ
BROWSE

注意看字段命名规则

错误主要集中在“CREATE TABLE data\tjk.dbf (xz c10,&zd)”这条命令：注意红色部分，如果你是建立一个新字段，并且把它类型设成字符型，长度为10的话，红色部分应为“C(10)”，而不是现在的样子。zd变量中也有拖在后面的“c10”，与之同理。
因为时间关系，我没有仔细分析过你的代码，但一眼扫过去发现了这个问题。
其实，如果你想把表文件中的某些字段连带记录全部复制成一个新表，可以用以下命令：
USE 源表
COPY TO 新表 FIELDS 字段名1,字段名2, ...
如果想复制后再加一个新字段，可在上述两条命令后加入：ALTER TABLE 新表 ADD 新字段名 类型(长度,小数位)。其中，小数位可视情况省略；如果新字段是日期型、逻辑型、货币型等固定长度的类型，可以省略整个括号中的内容，即，命令写成：ALTER TABLE 新表 ADD 新字段名 就行了。但是，如果你要把新字段作为新表的第一个字段，就要重新组织一下代码。

确实如版主所说，就是字段名命名的问题，不过

SELECT 'FS'+CHRTRAN(STRTRAN(BZ,[≥],[]),[.],[]) FIELD_NAME,'N' AS FIELD_TYPE,5 FIELD_LEN,1 FIELD_DEC FROM TZFSK INTO ARRAY ABZ

  这句有点看不懂，能解释下吗？谢谢大家的帮助

[ 本帖最后由 wpyingcheng 于 2013-10-17 10:50 编辑 ]

代码中用到的函数，VFP帮助文件中有详细的说明，自己研究吧。
函数CHRTRAN()、STRTRAN()分别将'.'、'≥'替换为空。

[ 本帖最后由 sdta 于 2013-10-17 12:48 编辑 ]