主题：[讨论]结束提醒

Dim ydt As Date = Date.Today.AddDays(10)
Dim ydr As DataRow = DataTables("应收款").Find("兑现日期 <= #" & ydt & "#")
If ydr IsNot Nothing Then
    MessageBox.Show("有应收款piao据即将到期!","piao据兑现到期提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("应收款").Filter = "兑现日期 <= #" & ydt & "#"
    MainTable = Tables("应收款")
End If

老师，上述代码是对到期事件的提醒，现在求解除事件处理后不再提醒的代码。