Dim ary() As String = {"一倍半加班H", "二倍加班H", "三倍加班H"}
If array.Indexof(ary, e.Col.name) >= 0 Then
If e.Row.IsNull("日期") = False AndAlso e.Row.IsNull("当事人") = False Then
Dim dr As DataRow = DataTables("考勤机").Find(CExp("姓名='{0}' and 日期 = #{1}#",e.Row("当事人"),e.Row("日期") ))
If dr IsNot Nothing Then
If dr(e.Col.name) <> e.Row(e.Col.name) Then
e.Style = "差异"
End If
Else
e.Style = "差异"
End If
End If
End If