|
Dim dt4 As Date = Date.Today.AddDays(30)
Dim dr20 As String= DataTables("安全资格培训").GetComboListString("企业名称", "下次培训日期 <= #" & dt4 & "#")
Dim dtdq As Date = Date.Today
Dim dr21 As String= DataTables("安全资格培训").GetComboListString("企业名称", "下次培训日期 < #" & dtdq & "#")
If dr21 > "" Then
MessageBox.Show(dr21 & ":" & vbcrlf & " 企业负责人/安全员培训合格证已过期未复审","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If
If dr20 > "" Then
MessageBox.Show(dr20 & ":" & vbcrlf & " 企业负责人/安全员培训合格证即将到期复审","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
|
加好友 
发短信
Post By：2018/10/22 17:45:00 [只看该作者]
