DataColChanged事件:
Select Case e.DataCol.Name
Case "创建日期","处理日期"
Dim dt1 As Date = e.DataRow("创建日期")
Dim dt2 As Date
If e.DataRow.Isnull("处理日期") Then
dt2 = Date.Today
Else
dt2= e.DataRow("处理日期")
End If
Dim tp As TimeSpan = dt2- dt1
If tp.TotalDays > 1 Then
e.DataRow("状态") = "超期"
Else
e.DataRow("状态") = ""
End If
End Select