Foxtable(狐表)用户栏目专家坐堂 → [求助]求高手给找出问题,改改代码!


  共有4014人关注过本帖树形打印复制链接

主题:[求助]求高手给找出问题,改改代码!

帅哥哟,离线,有人找我吗?
jnletao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
[求助]求高手给找出问题,改改代码!  发帖心情 Post By:2013/10/24 11:48:00 [只看该作者]

需求: 当切换行时,不管点击的第几列,都使第一列可见
         当只移动滚动条时,可见其它列,松开滚动条,不用回滚到第一列

问题: 1,我用select定位,上述效果未实现
         2,整行变色也乱了。

图片点击可在新窗口打开查看此主题相关图片如下:360软件小助手截图20131024114614.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:定位与行底色问题.table



 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/10/24 12:28:00 [只看该作者]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动冻结列.table

[此贴子已经被作者于2013-10-24 12:29:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/10/24 13:03:00 [只看该作者]

这是我的实际应用截图,因窗体内表比较多,所以此表宽度只能如此
我的前七列都是最需要显示的列,如果都冻结,后面可显示区域会更少了。
因此不希望冻结,只是希望在切换行后能始终前七列可见。

图片点击可在新窗口打开查看此主题相关图片如下:64570.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/10/24 14:15:00 [只看该作者]

1楼明明说的是:保证第一列可见,到了4楼却变成前七列可见。

到底是什么需求?

 


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/10/24 14:22:00 [只看该作者]

我也没搞懂.

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/10/24 14:55:00 [只看该作者]

好了,比较完美了:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:滚动条定位.table

[此贴子已经被作者于2013-10-24 15:06:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:936 积分:7719 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By: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


 回到顶部