以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  到期提醒设计,过期后怎样取消呀  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28111)
--  作者：leeking
--  发布时间：2013/1/19 11:50:00
--  到期提醒设计,过期后怎样取消呀

请问:

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

 

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

 
--  作者：程兴刚
--  发布时间：2013/1/19 11:54:00
--  
到期后均不符合您的条件,无需取消,自动就不会提醒了!
--  作者：lin_hailun
--  发布时间：2013/1/19 12:26:00
--  
你可以设定指定的一个范围内的提示，比如10天内的提示

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("开票到款").Find("实到款期 <= #" & dt & "# And 实到款期 >= #" & Date.Today & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有开票到款将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("开票到款").Filter = "实到款期 <= #" & dt & "# And 实到款期 >= #" & Date.Today & "#"
    MainTable = Tables("开票到款")
Else
End If
--  作者：程兴刚
--  发布时间：2013/1/19 12:33:00
--  
哦,没注意到楼主少了一个条件!图片点击可在新窗口打开查看
--  作者：leeking
--  发布时间：2013/1/19 12:50:00
--  

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

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
--  作者：程兴刚
--  发布时间：2013/1/19 13:51:00
--  

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

 

注：增加一个正常格式。

[此贴子已经被作者于2013-1-19 13:54:25编辑过]
--  作者：leeking
--  发布时间：2013/1/19 14:12:00
--  
出现错误了
图片点击可在新窗口打开查看此主题相关图片如下：取消.jpg
图片点击可在新窗口打开查看
--  作者：leeking
--  发布时间：2013/1/20 0:19:00
--  

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

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
--  作者：程兴刚
--  发布时间：2013/1/20 10:47:00
--  
以下是引用程兴刚在2013-1-19 13:51:00的发言：

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

 

注：增加一个正常格式。

[此贴子已经被作者于2013-1-19 13:54:25编辑过]

 

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