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
加好友 
发短信
Post By：2021/6/14 20:20:00 [显示全部帖子]
