主题：标注

dim dt As Date = e.Row("任期时间")

Dim n As Integer = 29 '未来天数,含今天,所以实际是未来7天

Dim dt1 As New Date(Date.Today.Year,dt.Month,dt.Day)

Dim dt2 As  New Date(Date.Today.AddDays(n).Year,dt.Month,dt.Day)

If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容

    If (dt1 >= Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 >= Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then

        e.Style = "任期临近"

    ElseIf  Date.Today >= dt.Addyears(3) Then

        e.Style = "任期到期" '

    Else

        e.Style = "任期正常" '

    End If

End If