从金蝶K3数据库中引出的VFP3.0表格中每个字符串都是254个字符，这是用不上的，造成资源浪费。

希望通过一段程序或者命令来实现让VFP表格自动修改字符型字段的长度为最佳适配项。

通过下面命令可以知道现有数据表某字段的最长字符数。
SELECT MAX(LEN(ALLTRIM(物料名称))),MAX(LEN(ALLTRIM(事务类型))) FROM ckyw

通过另外一条命令可以修改文本字符的长度。
 Alter Table ckyw Alter 物料名称 c(80)

因为数据表较多，希望有一个语句可以实现自动将数据表按照现有使用的最长字符数来修改表格式。

自己写一段代码修改

当一个语句解决不了问题时，就应该用一段代码来解决，片面追求语句的短少精练会不会是要求过高。

CALCULATE MAX(LEN(ALLTRIM(物料名称))) TO m长度
ExecScript([Alter Table ckyw Alter 物料名称 c(] + TRANSFORM(m长度) + [)])

设置内外两层循环，内循环：
for i=1 to  FCOUNT()
   if TYPE(FIELD(i))="C"
    fld=FIELD(i)
    SELECT MAX(LEN(ALLTRIM(&fld))) as bfldLenth  FROM ckyw into cursor tmp1  
    Alter Table ckyw Alter &fld c(bfldLenth)
    use in tmp1
   endif
endfor
外循环：用Adir()获取某文件夹下所有文件名到数组，再对数组循环。

Select Cast(MyField As Char(10)) From MyTable1 Into Table MyTable2  && 假设需要限制 MyField 字段的长度为 10