我想实现Grid某列不显示和自定义列宽，我把各列宽度值事先存放到一个表中，进入表单时会按指定的列宽度重新更新Grid，其中列宽是0时隐藏此列不显示：
USE gyshunxubj.DBF ALIAS gyshunxubj IN 0
sele gyshunxubj
scan
H6=TRIM(列序号)
IF 改后宽度1>0
thisform.grid1.column&H6..width=改后宽度1
ELSE  &&如果改后宽度1是0就隐藏此列不显示：
thisform.grid1.column&H6..Visible=.F.
endif
endscan

［问题］：以上语句虽然可以隐藏某列，但是一旦拉动表格的左右滚动条浏览表格数据时，表格的数据就会出现各列数据串位混乱现象,如下图所示：
1.没左右拉动滚动条前显示界面：

2.拉动左右滚动条后显示各列位置混乱的界面：


不知道有没有好的解决办法？谢谢！

这是测试用的表单，只要单击隐藏按钮，隐藏第1列序号后，再左右拉动表格滚动条并单击表格后，各列的竖线就错位。不知道是VFP自身的BUG还是我哪个地方设置的不对，敬请指教，谢谢。

尝试在隐藏第1列的语句后面重新定义了表格各列的宽度后，问题依然存在。想让表格某列隐藏本来是一个常规操作，但确有严重问题。
只能把需要隐藏列的宽度设置0，这样不存上述问题，只是隐藏列右侧有一条很粗的竖线，不美观，目前没有什么解决方案。

在grid.Scrolled事件加一条：this.SetFocus，解决了此问题。感谢吹版！果然出手不凡。