主题：[讨论]结束提醒

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

 

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

 你代码写在哪里？什么时候不再提醒？

代码写在项目事件里的，只要对该事件进行操作后(到期前的一个星期）就不再要提醒了。

Dim ydt As Date = Date.Today.AddDays(10)

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

谢谢老师

老师，我要通过逻辑列操作后停止提醒。

 加一列，停止提示

 

Dim ydt As Date = Date.Today.AddDays(10)

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

 

谢谢