过期30天后不再提示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

要实现三天内到期的弹窗提示“即将到期”数据涂黄，而过期30天后不再提示，但数据涂红。

下面代码：三天内到期和过期后提示，请问代码怎么改？

Dim dte2 As Date = Date.Today.AddDays(3)

Dim dr As DataRow = DataTables("改正").Find("限定日期 <= #" & dte2 & "#")

If dr IsNot Nothing Then

MessageBox.Show("有过期,或即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Tables("改正").Filter = "限定日期 <= #" & dte2 & "#"

Forms("查阅").open

End If

主题：过期30天后不再提示