- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求高手给找出问题，改改代码！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41651)
-- 发布时间：2013/10/24 11:48:00
-- [求助]求高手给找出问题，改改代码！
需求： 当切换行时，不管点击的第几列，都使第一列可见
当只移动滚动条时，可见其它列，松开滚动条，不用回滚到第一列
问题： 1，我用select定位，上述效果未实现
2，整行变色也乱了。
此主题相关图片如下：360软件小助手截图20131024114614.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:定位与行底色问题.table |
-- 发布时间：2013/10/24 12:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:自动冻结列.table |
[此贴子已经被作者于2013-10-24 12:29:13编辑过]
-- 发布时间：2013/10/24 12:51:00
--
以下是引用lsy在2013-10-24 12:28:00的发言：
| 下载信息 [文件大小：552.0 KB 下载次数：0] | |
| 点击浏览该文件:自动冻结列.table |
[此贴子已经被作者于2013-10-24 12:29:13编辑过]
lsy大哥，与我的需求不一样呕，用冻结的方法固然可以保持第一列可见，
可是切换行后，我的第二列第三列等可以会隐藏（因为我点击可能不是第一列，可能是水平滚动后的列）
[此贴子已经被作者于2013-10-24 12:55:25编辑过]
-- 发布时间：2013/10/24 13:03:00
--
这是我的实际应用截图，因窗体内表比较多，所以此表宽度只能如此
我的前七列都是最需要显示的列，如果都冻结，后面可显示区域会更少了。
因此不希望冻结，只是希望在切换行后能始终前七列可见。
此主题相关图片如下：64570.png
-- 发布时间：2013/10/24 14:15:00
--
1楼明明说的是：保证第一列可见，到了4楼却变成前七列可见。
到底是什么需求？
-- 发布时间：2013/10/24 14:22:00
--
我也没搞懂.
-- 发布时间：2013/10/24 14:55:00
--
好了，比较完美了：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:滚动条定位.table |
[此贴子已经被作者于2013-10-24 15:06:16编辑过]
-- 发布时间：2013/10/24 17:15:00
--
以下是引用lsy在2013-10-24 14:55:00的发言：
好了，比较完美了：
| 下载信息 [文件大小：548.0 KB 下载次数：1] | |
| 点击浏览该文件:滚动条定位.table |
[此贴子已经被作者于2013-10-24 15:06:16编辑过]
高窗口1_Table1_Click
Dim t As Table = Tables("窗口1_Table1")
t.Select(t.RowSel,0)
Dim p As Point = t.ScrollPosition
p.X = 0
t.ScrollPosition = P