我想实现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.拉动左右滚动条后显示各列位置混乱的界面：


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

给测试代码

改变列的visible属性吧

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

好像是有点问题，Visible=.f. 只是不显示内容，并不等于他消失。
要动态最好重新定义列的内容

第一次运行时确实有错乱现像
在设计环境设置grid的 SplitBar = .F.后 没出现错乱
但奇怪的是
再将SplitBar = .T. 后也没错乱了.

grid有个特性：获得焦点时会刷新数据。
这样试试或者可以：
1、设置grid.Column的Visible后执行grid.SetFocus
2、在grid.Scrolled事件中执行grid.SetFocus

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

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

谢谢各位，跟着学习