因为过去每年都要建立这样一套表,其中就包含kmmck.dbf表,并且很多基层单位都用这套表,现在我在程序中把处理该表kmx1字段宽度的部分改成16(过去是10),如果我把每套表中的该字段的宽度一一修改(包含基层单位)那显然太麻烦,所以我就想在程序中对该字段宽度进行修改,每次打开该表时检查kmx1字段宽度是否为16,否则就重新设置为16。
Use 表 If Type("表.Kmx1")!="U" And Type("表.Kmx1")="N" If Iif(Afields(A)>0,A(Ascan(A,"KMX1")+2),0)!=16 && 字段名如果是英文,一定要大写 Alter Table 表 Alter Kmx1 N(16) Modify Structure Endif Endif