Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
假如使用这个代码
dim a as single =Tables("员工").LeftVisibleCol
Tables("员工").refresh
Tables("员工").LeftVisibleCol=a
假如表格列很多,很宽,我拖动查看表格,正好第十列只显示出一半,这时,我用以上代码进行刷新,会使第十列完全显示出来,表格左右还是会动?请问这怎么解决?
我把刷新取消了,但有时操作鼠标 当前行发生变化时,表格左右也会滚动一下 是怎么回事?
我上传了问题视频,鼠标点第二下时,左右发生了滚动.
而且并不是每次都这样,只是有时会这样,
为了排查问题,currentcolchanged代码已经清空
下载信息 [文件大小: 下载次数: ] | |
![]() |
没设置,单击也不会触发自动列宽吧
我又录了1个视频,鼠标点击第一下和第三下都设置了代码,表格动是正常的,
鼠标在表格中点击第二下,表格又左右动,动看滚动条的特别明细,这个不能理解
而类似的情况,点第四下却没动
下载信息 [文件大小: 下载次数: ] | |
![]() |
我这样解决了,
因为我发现点击 “喷漆”,运行完代码,表的显示列发生变化,此时点击其他行的单元格则可能(不是每次都这样)发生左右滚动,但若点击本行的单元格,则不会左右滚动,此后再随便点击单元格也不会左右滚动了,
所以我让代码先帮我点击选中本行的其他的单元格,这样就可以了。
Dim a,b As Integer
With Tables("表A")
.LeftVisibleCol = .Cols("喷漆").Index
a =.position
b =.Cols("喷漆").Index
End With
Tables("表A").Select(a,b)
Tables("表A").Select(a,b+1)
但具体原因没弄清楚,不知道是不是BUG。