怎么实现表数据周数变化后本周数据对比上周数据如果有更新那就将有变化的数据标准为红色反之不做颜色更改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么实现表数据周数变化后本周数据对比上周数据如果有更新那就将有变化的数据标准为红色反之不做颜色更改

共有1801人关注过本帖树形打印复制链接主题：怎么实现表数据周数变化后本周数据对比上周数据如果有更新那就将有变化的数据标准为红色反之不做颜色更改

cnsjroom

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

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

怎么实现表数据周数变化后本周数据对比上周数据如果有更新那就将有变化的数据标准为红色反之不做颜色更改 发帖心情

Post By：2021/6/13 23:21:00 [只看该作者]

怎么实现表数据周数变化后本周数据对比上周数据如果有更新那就将有变化的数据标准为红色反之不做颜色更改

数据表中有如下字段

时间党课类型参加人数事项场次

2021-6-2 上党课 60 3

2021-6-13 上党课 60 3

2021-6-18 上党课 90 5

怎么利用代码实现

第二条数据是第二周与第一条数据进行比对提示没有变化

第三条数据是第三周与第二条数据进行比对提示有变化并且在变化的数字上90 5 上标注为红色呢？

有点蓝

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

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/14 20:20:00 [只看该作者]

drawcell事件

Select Case e.Col.name

Case "参加人数","事项场次"

If e.Row.isnull("时间") = False

Dim d As Date = e.Row("时间")

Dim d1 As Date = d

If d.DayOfWeek = 0 Then

d1 = d - 13

Else

d1 = d - 7 - d.DayOfWeek+1

End If

Dim dr As DataRow = e.Table.DataTable.find("党课类型='" & e.row("党课类型") & "' and 时间 >=#" & d1 & "# and 时间 <#" & d1.adddays(7) & "#")

If dr IsNot Nothing Then

If dr("参加人数") <> e.Row(“参加人数”) Then

e.style = "样式1"

End If

If dr("事项场次") <> e.Row(“事项场次”) Then

e.style = "样式1"

End If

End Select

主题：怎么实现表数据周数变化后 本周数据对比上周数据如果有更新 那就将有变化的数据标准为红色 反之不做颜色更改