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

请问:

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

 

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

 

到期后均不符合您的条件,无需取消,自动就不会提醒了!

你可以设定指定的一个范围内的提示，比如10天内的提示

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("开piao到款").Find("实到款期 <= #" & dt & "# And 实到款期 >= #" & Date.Today & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有开piao到款将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("开piao到款").Filter = "实到款期 <= #" & dt & "# And 实到款期 >= #" & Date.Today & "#"
    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

If e.col.Name = "应到款期" Then

    If e.Row.IsNull("应到款期") = False

        if e.row("应到日期") >= date.today and e.row("应到日期") <= date.today.add(10)
             e.Style = "到期"

        else

             e.Style = "正常"

        End If

    else

         e.Style = "正常"
    End If
End If

 

注：增加一个正常格式。

出现错误了
此主题相关图片如下：取消.jpg

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

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

 

晕，少了days，笔误，不过也好，您自己学会了纠错，进步得会更快！