Foxtable(狐表)用户栏目专家坐堂 → 光标在某一单元格,如何实现该整行色着?!


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

主题:光标在某一单元格,如何实现该整行色着?!

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


加好友 发短信
等级:幼狐 帖子:71 积分:927 威望:0 精华:0 注册:2014/12/8 15:38:00
光标在某一单元格,如何实现该整行色着?!  发帖心情 Post By:2018/10/17 20:30:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:光标所在行不能整行着色.jpg
图片点击可在新窗口打开查看

想达到如下要求,如何设置?!求解(表样色已经设为一样了,怎么就是不同效果?!)

图片点击可在新窗口打开查看此主题相关图片如下:本行能着色.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/10/17 20:31:36编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/17 20:43:00 [只看该作者]

drawcell事件

 

If e.Row.Index = e.Table.Current.Index Then
    e.Table.DataTable.AddUserStyle("当前行", Color.red, Color.black)
    e.style = "当前行"
End If


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


加好友 发短信
等级:幼狐 帖子:71 积分:927 威望:0 精华:0 注册:2014/12/8 15:38:00
  发帖心情 Post By:2018/10/17 22:10:00 [只看该作者]

老师,上述方面可以实现 上述目的,但是一个比较致命的错误,在汇总模式下,当光标移到汇总栏就出现了错误!所有设置的DrawCell事件均无效


图片点击可在新窗口打开查看此主题相关图片如下:光标移到汇总栏出现 错误1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:光标移到汇总栏出现 错误2.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/10/17 22:13:46编辑过]

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


加好友 发短信
等级:幼狐 帖子:71 积分:927 威望:0 精华:0 注册:2014/12/8 15:38:00
  发帖心情 Post By:2018/10/17 22:16:00 [只看该作者]

看来还是不能这样设置啊!有没有其他办法?!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/17 22:23:00 [只看该作者]

If e.row.isgroup = false andalso e.Row.Index = e.Table.Current.Index Then
    e.Table.DataTable.AddUserStyle("当前行", Color.red, Color.black)
    e.style = "当前行"
End If


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


加好友 发短信
等级:幼狐 帖子:71 积分:927 威望:0 精华:0 注册:2014/12/8 15:38:00
  发帖心情 Post By:2018/10/20 16:54:00 [只看该作者]

If e.row.isgroup = false andalso e.Row.Index = e.Table.Current.Index Then
    e.Table.DataTable.AddUserStyle("当前行", Color.red, Color.black)
    e.style = "当前行"
End If


按上述设置还是会出现光标在汇总栏同样的问题,不知有没有其他根本 性解决办法?!


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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/20 17:09:00 [只看该作者]

If  e.Row.Index = e.Table.rowsel Then
    e.Table.DataTable.AddUserStyle("当前行", Color.red, Color.black)
    e.style = "当前行"
End If

 回到顶部