修改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(“&SOU_FILE”) &&打开要修改的数据表 SELE &SOU_FILE ELSE SELE 0 USE &SOU_FILE ENDIF =AFIELDS(STR_FIL) &&获取表结构,并存储在STR_FIL数组内 FIEL_SUM=FCOUNT() &&计算表字段数 N=1 DO WHILE N$#@60;=FIEL_SUM &&查找要修改的字段名 IF ALLT(STR_FIL(N,1))=FIE_NAME &&如果是要修改的字段名 IF STR_FIL(N,3)=FIE_WID &&判别字段宽度是否相同 RETURN &&相同返回 ELSE &&否则修改表结构 wait "正在修改数据结构， 请稍侯..." WIND NOWAIT STR_FIL(N,3)=FIE_WID &&确定字段长度 EXIT &&退出循环 IF N= FIEL_SUM &&如果循环结束 wait "无修改的字段，按任意键返回…. " WIND &&提示用户 RETURN ENDIF ENDIF ENDIF N=N+1 ENDDO *按STR_FIL数组内容，创建临时表结构 SELE 0 *根据STR_FIL数组规定的字段名字、 类型、宽度创建临时表STR_TMP CREATE CURSOR STR_TMP FROM ARRAY STR_FIL SELE &SOU_FILE USE &&关闭原数据表 *将原数据表数据添加到临时表STR_TMP中 SELE 0 APPE FROM &SOU_FILE COPY TO &SOU_FILE &&复制新的数据原表 RETURN
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
