以下是引用YZCZWCB在2010-1-18 20:20:14的发言:
楼上的,zdm=thisform.grid1.columns(i).header1.caption 错误提示是:“不是一个对象”。
因为我的GRID列是不固定的,是用于用户选择字段,事先不知道多少列的
Select max(len(alltrim(&zdm))) from Zfcg_sjbb ...
我是参照你3楼的意思改的, 除非你3楼不但代码错了, 意思也错了~~~
其实, 要改字段长度是很简单的~~~假设要把 表a 所有字符型字段的长度改为最大宽度值的长度, 代码如下(测试无误)~~
sele 1
use 表a excl
for ii=1 to fcou()
lsc =fiel(ii)
if vart(&lsc)="C"
sele max(len(allt(&lsc))) from 表a into arra tmpa
alte dbf 表a alte &lsc c(tmpa(1))
endif
endfor
brow