Question

vfp 如何检查字段已存在

Answer 1

给你个遍历查询字段是否存在的函数：
PROCEDURE CheckField &&表中的字段是否存在
PARAMETERS InAlias,InField &&表的别名,要查找的字段名
tmpField=.F.
FOR gnCount = 1 TO FCOUNT('&InAlias') && 循环次数等于字段的数目
IF InField==ALLTRIM(FIELD(gnCount)) && 显示各字段
tmpField=.T.
EXIT
ENDIF
ENDFOR
RETURN tmpField

用法：CheckField（表名,段名），如果存在就返回.T.。如果不存在就返回.F.。