哇，又是Grid，这家伙是最诡异的一个内部控件，不过可以试试下面的方法（你的代码前后加点东西）：

combo2的InteractiveChange事件： 

DIMENSION nWidth(4)
FOR nI=1 TO 4
    nWidth(nI)=thisform.grid1.Columns(nI).width
ENDFOR
<你原先的代码>
FOR nI=1 TO 4
    thisform.grid1.Columns(nI).width=nWidth(nI)
ENDFOR

俺猜测Grid中有4列，所以上面数组及循环用了4，请根据实际情况更改。
道理应该不言而喻，先保存各列宽度，后面又恢复各列宽度

谢谢楼上的建议，我去试试看。

[img]http://hiphotos.baidu.com/chucan001/mpic/item/84d23f583006dda6810a1856.jpg[/img]

楼上的大大，请看这图。按照你说的方法，列宽确实不会变的很小而看不清数据了，谢谢。
我的表里有六列数据，我把数字改成了6；现在的问题是备注一栏长度太长，后面还有一个学期栏需要拖动才能看到。能不能实现把备注栏长度弄短一点？或者把列宽设置成根据字段自动调整或者固定列宽？  
最初以为是备注这一栏在表里设的字符数太多，我改小了很多，但执行表单还是一样的结果；我在表里把学期栏放到备注栏前面也不行。
请赐教，谢谢了