主题：[求助] 关于日期提醒

  编写AfterOpenProject事件

For Each dr As DataRow In DataTables("表A").DataRows
   
    If dr.IsNull("年审截止日") = False Then
        Dim sp As TimeSpan = dr("年审截止日") - Date.Today
        If sp.TotalDays > 60 Then
            dr("提示") = "未到期"
        Else If sp.TotalDays >= 0 Then
            dr("提示") = "即将到期"
        Else If sp.TotalDays < 0 Then
            dr("提示") = "已到期"
        End If
    Else
        dr("提示") = Nothing
    End If
   
Next