出勤相关drawcell
If e.Row.IsNull("日期") = False Then
Dim d As Date = e.Row("日期")
If d.DayOfWeek = 0 OrElse d.DayOfWeek = 6 Then
e.style = "周六日"
End If
If e.Row.IsNull("当事人") = False Then
Dim dr As DataRow = DataTables("考勤机").Find(CExp("姓名='{0}' and 日期 = #{1}#",e.Row("当事人"),e.Row("日期") ))
If dr IsNot Nothing AndAlso dr("一倍半加班H") <> e.Row("一倍半加班H") Then
e.Style = "差异"
End If
End If
End If
考勤机drawcell
If e.Row.IsNull("日期") = False Then
Dim d As Date = e.Row("日期")
If d.DayOfWeek = 0 OrElse d.DayOfWeek = 6 Then
e.style = "周六日"
End If
If e.Row.IsNull("姓名") = False Then
Dim dr As DataRow = DataTables("出勤相关").Find(CExp("当事人='{0}' and 日期 = #{1}#",e.Row("姓名"),e.Row("日期") ))
If dr IsNot Nothing AndAlso dr("一倍半加班H") <> e.Row("一倍半加班H") Then
e.Style = "差异"
End If
End If
End If