表kmmck.dbf中有一字段kmx1,N型，在程序中怎样取得kmx1字段的宽度并重新的设置其宽度?比如：其宽度小于16时则重新设置为16。请教了，谢谢！

为什么要修改原数据表结构，这是不符合常理的。

因为原来的字段宽度不适应瑞的需要了，需要增加其宽度，不是更改表结构。

增加字段宽度也是修改表结构

那这个问题能解决吗？

字段kmx1,N型即使要修改宽度，还要知道该字段是否有小数位，修改宽度后的小数位是否还要保留原来的长度，这些问题楼主也没说清楚。
字段宽度可用Afields()获取。

该字段没有小数，不需要知道和保留小数位。

只单纯修改字段宽度，打开表结构，直接修改宽度就行了，为什么还要以代码方式修改。

可以解决，但有点小题大做了

是想批量处理吧
FOR I=1 TO ADIR(TABLE_NAME,"*.DBF") &&注意DBF文件路径
    USE (TABLE_NAME[I,1]) ALIAS TABLE_TMP IN 0  EXCLUSIVE
    RELEASE ArrayName1
    =AFIELDS(ArrayName1,'TABLE_TMP')
    I2=(ASCAN(ArrayName1,'KMX1')+17)/18
    IF I2>=1 AND ArrayName1[I2,3]<16
        ALTER TABLE (TABLE_TMP) ALTER KMX1 N(16) &&注意如果有小数位就加上
    ENDIF
    USE IN TABLE_TMP
ENDFOR