Foxtable(狐表) → 用户栏目 → 专家坐堂 → 除了drawcell事件外如何给行标记颜色?


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

主题：除了drawcell事件外如何给行标记颜色?
帅哥哟，离线，有人找我吗？
happyft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1937 积分：17776 威望：0 精华：0 注册：2014/7/29 19:09:00 		除了drawcell事件外如何给行标记颜色?  发帖心情 Post By：2020/12/3 8:52:00 [只看该作者]

因为是查询绑定到数据再增加临时列,然后根据这个临时列的值来判断让行显示红色,如果用drawcell事件,在查询绑定时就执行一次,增加临时列时又执行一次会闪屏,如果不通过drawcell事件,想在按钮代码中在查询生成数据增加标记临时列后,再根据标记列的值来设置行的颜色为红色,不用drawcell可以实现吗?如何写?

谢谢!
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112290 积分：571688 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/3 9:51:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=134732&skin=0

 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1937 积分：17776 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2020/12/3 10:04:00 [只看该作者]

这个是设置单元格的颜色,我是要设置整行的颜色,这里要怎么改?
      t.Grid.SetCellStyle(r.Index+t.HeaderRows, 2, cr1)
谢谢!
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112290 积分：571688 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/3 10:12:00 [只看该作者]

遍历整行逐个单元格处理

 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1937 积分：17776 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2020/12/3 10:14:00 [只看该作者]

那不是效率很低,能否类似这样 tbl.Grid.SetRowStyle(cr1)  

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


加好友 发短信
等级：超级版主 帖子：112290 积分：571688 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/3 10:15:00 [只看该作者]

没有这种用法

 回到顶部
帅哥哟，离线，有人找我吗？
linyunu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：1880 威望：0 精华：2 注册：2018/1/16 20:53:00 		  发帖心情 Post By：2021/3/9 15:36:00 [只看该作者]

Dim t As Table = Tables(TableName)
Dim cr1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("a")    ' 创建一个新的自定义样式
cr1.BackColor = Color.White
cr1.ForeColor = Color.Red
'               将新的样式分配到一列。
t.Grid.Cols(3).Style = t.Grid.Styles("a") 
'               将新的样式分配到一行。
t.Grid.Rows(3).Style = t.Grid.Styles("a") 
'               将新的样式分配到一个单元格区域。  
Dim rg As C1.Win.C1FlexGrid.CellRange = t.Grid.GetCellRange(4, 4, 6, 6)
rg.Style = t.Grid.Styles("a") 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08203 秒, 4 次数据查询