主题：到期提醒设计,过期后怎样取消呀

请问:

    到期提醒设计,过期后怎样取消呀

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("开piao到款").Find("实到款期 <= #" & dt & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有开piao到款将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("开piao到款").Filter = "实到款期 <= #" & dt & "#"
    MainTable = Tables("开piao到款")
Else
End If

谢谢你们了,提醒是没有了,但应到款期内标识的到期样式红底白字却没取消掉呀

If e.col.Name = "应到款期" Then
    If e.Row.IsNull("应到款期") = False
        If e.Row("应到款期") < "实到款期 <= #" & dt & "# And 实到款期 >= #" & Date.Today & "#" Then
            e.Style = "到期"
        End If
    End If
End If

问题解决了,谢谢程版主给予解答的思路。

Dim dt As Date = Date.Today.AddDays(10)
Dim da As Date = Date.Today()
If e.col.Name = "应到款期" Then
    If e.Row.IsNull("应到款期") = False
        If e.Row("应到款期") >= Date.Today() And e.Row("应到款期") <= Date.Today.AddDays(10)
             e.Style = "到期"
        Else
             e.Style = "正常"
        End If
    Else
         e.Style = "正常"
    End If
End If