close database
create table aa (yw C(3), 数学 N(3))
browse
* 修改字段名 yw
if type("yw") <> "U"
alter table aa rename yw to 语文
* 修改字段名 yw 的数据类型及宽度
browse
alter table aa alter 语文 N(10,2)
modify structure
else
messagebox("字段名不存在")
endif
use in aa
erase aa.dbf