【IT168 技术文档】

　 修改FOXPRO数据表结构，常用MODIFY STRUCTURE命令。这种方法虽然方便，但必须在人机对话中实现。若您的程序已交付许多用户使用，要求用户采用MODIFY STRUCTURE命令修改数据表结构势必会带来许多麻烦。是否可通过执行预先编制好的程序来完成扩大字段宽度工作？笔者最近做了一个尝试，其程序思路是：

　 1、利用AFIELDS()函数获取要修改的数据表结构信息，并将信息存放在STR_FIL数组内。AFIELDS()函数的语法：AFIELDS(ArrayName),ArrayName是放置表结构信息的数组名（可由自己命名，本例中命名为STR_FIL），数组为每一个字段创建一行数据，其每一列里存储的信息如下：

　 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