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

你可以设定指定的一个范围内的提示，比如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