如何在应用程序中修改FOXPRO数据表

P>早期有不少用FOXPRO编写的数据库应用程序喜欢用6位字符型字段来记录日期。随着2000年的到来，这个字段的宽度显然已经不适用了，需要修改。
　 修改FOXPRO数据表结构，常用MODIFY STRUCTURE命令。这种方法虽然方便，但必须在人机对话中实现。若您的程序已交付许多用户使用，要求用户采用MODIFY STRUCTURE命令修改数据表结构势必会带来许多麻烦。是否可通过执行预先编制好的程序来完成扩大字段宽度工作？笔者最近做了一个尝试，其程序思路是：
　 1、利用AFIELDS()函数获取要修改的数据表结构信息，并将信息存放在STR_FIL数组内。AFIELDS()函数的语法：AFIELDS(ArrayName),ArrayName是放置表结构信息的数组名（可由自己命名，本例中命名为STR_FIL），数组为每一个字段创建一行数据，其每一列里存储的信息如下：

列号字段信息数据类型
1字段名 字符型
2字段类型字符型
3字段宽度 数值型
4小数点位置 数值型
5容许的空值 逻辑型
6字段有效准则 字符型
7字段有效文本 字符型
8字段缺省值 字符型
9表有效准则 字符型
10表有效文本 字符型

　 2、根据要求修改STR_FIL数组内容（本例，修改字段宽度）。
　 3、利用CREATE CURSOR 命令，按STR_FIL数组内容创建一临时表结构。
　 4、将原表数据添加到临时表中。
　 5、利用COPY TO 命令，将临时表覆盖原表。
　 下面是修改字段宽度的原代码：
*参数：SOU_FILE(修改的数据表文件名),字符型
*参数：FIE_NAME(要修改的字段名)，字符型
*参数：FIE_   (修改后的字段宽度)，数字型
PARA SOU_FILE,FIE_NAME,FIE_WID
PRIV STR_FIL,FIEL_SUM,N, STR_TMP
IF USED(“