关于GRID中水平滚动条的问题求助!

[LAIYANGPJ]

现操作如下:
在一表单中加入一GRID并与数据表ABC.DBF邦定,数据表的字段有60个,我现在把其中字段对应的CLOUMN(1,2,3.....16,23,28,31,34,39,40,47,48,49,50,52,53)VISIBLE=.F.
现在只要点击水平滚动条的右边的箭头(不是在滚动条的中间点击),GRID就会变乱.有没有什么办法可以解决?

[十豆三]

发给我看看：

[e-mail]

[十豆三]

你的系统
你的VFP版本
你的表结构
你的代码

再说详细一下吧。

[LAIYANGPJ]

已经打包发过去了

[LAIYANGPJ]

这个应该不关系统的事,我的软件在XP,WIN2000下都有安装,结果一样.
VF版本是:9.0
表及代码已经打包发过去了.没什么代码.我只是把有问题的一点代码给你了.

[十豆三]

好的，我收一下。

[LAIYANGPJ]

另我的QQ坏了,没办法只有求助CSDN了.

[十豆三]

收到了，不过缺少myvcx.vcx，打不开表单

[LAIYANGPJ]

我再做一份,就是那个GRID的父类是MYVCX

[LAIYANGPJ]

发过去了,这个GRID你把那个滚动条的右箭头多点几下.在中间位置大概也就是我在中间VISIBLE=.F.的那几列就开始乱了.

[十豆三]

我用别的方法正常，用你的代码出现你说的问题，我找一找你的代码原因。

[LAIYANGPJ]

谢谢,其中如果数据表的字段数不够多也不会出现这个问题

[LAIYANGPJ]

如果改好了,给我QQ留言.我的QQ好了

[十豆三]

将这段：

c_clumn=[ 1 2 3 4 5 6 7 8 91011121316232831343940474849505253]
FOR ic=1 TO LEN(c_clumn) step 2
do_visible='.column'+ALLTRIM(SUBSTR(c_clumn,ic,2))+'.visible=.f.'
&do_visible.
ENDFOR

注释掉。

然后在最后一个Endfor之后 Endwith之内加：

FOR I=53 TO 1 STEP -1
IF ICASE(BETWEEN(I,14,15),.F.,BETWEEN(I,17,22),.F.,BETWEEN(I,24,27),.F.,BETWEEN(I,29,30),.F.,BETWEEN(I,32,33),.F.,BETWEEN(I,35,38),.F.,BETWEEN(I,41,46),.F.,I=51,.F.,.T.)
.DeleteColumn(I)
ENDIF
ENDFOR

[LAIYANGPJ]

好了,再次感谢版主!结贴.