主题：日期问题

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

不会的，就简单哈，复制粘贴代码：

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

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