[求助]本行值=上行值时，单元格变颜色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]本行值=上行值时，单元格变颜色

共有3238人关注过本帖树形打印复制链接主题：[求助]本行值=上行值时，单元格变颜色

绿火柴

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

等级：一尾狐帖子：482 积分：4510 威望：0 精华：0 注册：2014/3/4 21:20:00

[求助]本行值=上行值时，单元格变颜色 发帖心情

Post By：2020/6/30 16:00:00 [显示全部帖子]

为什么整列都变颜色了，怎么修改下。下面红色部分，好像不起作用。

If e.Col.Name = "第二列" Then

For i As Integer = 0 To e.Table.DataTable.DataRows.Count -1

Dim dr As DataRow = e.Table.DataTable.DataRows(i)

If i > 0 Then

Dim pr As DataRow = e.Table.DataTable.DataRows(i-1)

If dr("第二列") > "" And dr("第二列") = pr("第二列") Then

e.Style = "aaa"

End If

[此贴子已经被作者于2020/6/30 16:06:30编辑过]

绿火柴

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

等级：一尾狐帖子：482 积分：4510 威望：0 精华：0 注册：2014/3/4 21:20:00

Post By：2020/6/30 16:58:00 [显示全部帖子]

这效率，就喜欢这论坛之一的原因。

绿火柴

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

等级：一尾狐帖子：482 积分：4510 威望：0 精华：0 注册：2014/3/4 21:20:00

Post By：2020/7/2 14:58:00 [显示全部帖子]

我在drawcell中加了这么一段代码，效果是实现了。

'以下样式,只是为了让当前行颜色显示,其实此样式（bbb）是不存在的.

If e.Row.index = e.Table.rowsel Then

e.Style = "bbb"

End If

主题：[求助]本行值=上行值时，单元格变颜色