以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么实现表数据周数变化后 本周数据对比上周数据如果有更新 那就将有变化的数据标准为红色 反之不做颜色更改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169367)
--  作者：cnsjroom
--  发布时间：2021/6/13 23:21:00
--  怎么实现表数据周数变化后 本周数据对比上周数据如果有更新 那就将有变化的数据标准为红色 反之不做颜色更改

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

数据表中有如下字段

时       间            党课类型   参加人数   事项场次 
2021-6-2            上党课        60             3
2021-6-13          上党课        60             3
2021-6-18         上党课         90             5

怎么利用代码实现
第二条数据是第二周  与第一条数据进行比对  提示没有变化
第三条数据是第三周  与第二条数据进行比对  提示有变化   并且在变化的数字上90   5 上标注为红色呢？  
--  作者：有点蓝
--  发布时间：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 If
        End If
End Select