一个表中有两个或三个到期，只提醒一次，如何解决，代码如何改？谢谢
Dim dt4 As Date = Date.Today.AddDays(30)
Dim dr20 As DataRow = DataTables("安全资格培训").Find("下次培训日期 <= #" & dt4 & "#")
Dim dtdq As Date = Date.Today
Dim dr21 As DataRow = DataTables("安全资格培训").Find("下次培训日期 < #" & dtdq & "#")
If dr21 IsNot Nothing Then
MessageBox.Show(dr21("企业名称") & ":" & vbcrlf & " 企业负责人/安全员培训合格证已过期未复审","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
ElseIf dr20 IsNot Nothing Then
MessageBox.Show(dr20("企业名称") & ":" & vbcrlf & " 企业负责人/安全员培训合格证即将到期复审","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
加好友 
发短信
Post By：2018/10/22 17:33:00 [只看该作者]
