Foxtable(狐表)用户栏目专家坐堂 → 求助状态栏


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

主题:求助状态栏

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


加好友 发短信
等级:超级版主 帖子:107541 积分:546996 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 10:02:00 [显示全部帖子]

参考:http://www.foxtable.com/webhelp/topics/0647.htm占比留作业,自行补上

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:求助.zip


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


加好友 发短信
等级:超级版主 帖子:107541 积分:546996 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 11:54:00 [显示全部帖子]

1、判断列参考:http://www.foxtable.com/webhelp/topics/0646.htm

2、没有办法判断。选中行肯定也就选中了列,反之亦然。
或者考虑显示到Message1或Message3

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


加好友 发短信
等级:超级版主 帖子:107541 积分:546996 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 14:50:00 [显示全部帖子]

不用那么死板咯,帮助是让列无法选中,那不就是可以判断是哪一个列了吗?不是让您照抄代码,学会帮助怎么判断是某一列的!

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


加好友 发短信
等级:超级版主 帖子:107541 积分:546996 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 14:56:00 [显示全部帖子]

'获得机密列的位置,保存到变量c中
Dim
 c As integer = e.Table.Cols("学历").Index 
'判断即将选定的区域是否包括机密列

If
 e.NewRange.LeftCol <= c And e.NewRange.RightCol >= c Then 
   说明包含
学历列,把计算代码放到这里
End
 If

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


加好友 发短信
等级:超级版主 帖子:107541 积分:546996 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 17:30:00 [显示全部帖子]

要单独选中”学历“列才处理?

If e.NewRange.LeftCol = f And e.NewRange.RightCol = f Then

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


加好友 发短信
等级:超级版主 帖子:107541 积分:546996 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 17:35:00 [显示全部帖子]

比如:

Dim f As Integer = e.Table.Cols("学历").Index 
Dim f2 As Integer = e.Table.Cols("其它列").Index 

If e.NewRange.LeftCol = e.NewRange.RightCol andalso (e.NewRange.LeftCol =f orelse e.NewRange.LeftCol =f2) Then

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


加好友 发短信
等级:超级版主 帖子:107541 积分:546996 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 20:10:00 [显示全部帖子]

If e.NewRange.LeftCol = e.NewRange.RightCol andalso (e.NewRange.LeftCol =f orelse e.NewRange.LeftCol =f2) Then
选中的处理
else
StatusBar.Message2 = ""
endif

 回到顶部