我前面的代码有问题，字段名前要加表别名。向楼主表示歉意！
CLEAR
CREATE CURSOR test (a1 c(10), a2 c(10))
IF TYPE("test.a3") == "U"
    ? "不存在"
    ALTER TABLE test ADD a3 c(20)
ELSE
    ? "存在"
    ALTER TABLE test drop a1
    ALTER TABLE test ADD a1 c(20)
ENDIF
BROWSE

修改表结构要重写表文件，删除又添加等于重写表文件两次
同名字段不用先删除后添加，直接修改字段的类型和长度就可以

使用 FIELD()或 TYPE()前，应该先打开数据表。请看以下示例：

use 文科
if empty(field("bm"))
  alter table 文科 add bm c(8)
else
    ....

用fsize()来判断字段是否存在.
if fsize('学号','表别名')>0
    ? '字段:学号 存在'
else
    ? '字段:学号 不存在'
endif

另外,使用type()前,要先 select 工作区,这是很多人会忽略的地方.