如何代码实现改变指定行的底色？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何代码实现改变指定行的底色？

共有2305人关注过本帖树形打印复制链接主题：如何代码实现改变指定行的底色？

54292550

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：287 积分：4225 威望：0 精华：0 注册：2011/8/19 10:07:00

如何代码实现改变指定行的底色？ 发帖心情

Post By：2016/5/18 22:59:00 [只看该作者]

我想单击一个按钮，实现改变指定行的底色。怎么实现？

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/18 23:06:00 [只看该作者]

去编写drawcell事件

If e.Row("第一列") = "abc" Then
e.Table.DataTable.AddUserStyle("样式1", Color.red, Color.black)
e.style = "样式1"
End If

然后按钮click事件

CurrentTable.Current("第一列") = "abc"
CurrentTable.Refresh

54292550

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：287 积分：4225 威望：0 精华：0 注册：2011/8/19 10:07:00

Post By：2016/5/18 23:10:00 [只看该作者]

想简单一点，就单击一个按钮让表的最后一行变色就可以。有别的办法吗？

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/18 23:18:00 [只看该作者]

以下是引用54292550在2016/5/18 23:10:00的发言：
想简单一点，就单击一个按钮让表的最后一行变色就可以。有别的办法吗？

Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")

cs1.backcolor = Color.yellow
For i As Integer = 1 To t.cols.count
t.Grid.SetCellStyle(t.Rows.count, i, cs1)
Next

主题：如何代码实现改变指定行的底色？