企业基本信息表中有列:企业名称、职业危害检测、职业危害检测有效期等列,设置了如下代码:Dim dt10 As Date = Date.Today.AddDays(30)
Dim dr11 As DataRow = DataTables("企业基本信息").Find("职业危害检测有效期 <= #" & dt10 & "#")
Dim dtdq As Date = Date.Today
Dim dr12 As DataRow = DataTables("企业基本信息").Find("职业危害检测有效期 < #" & dtdq & "#")
If dr12 IsNot Nothing Then
MessageBox.Show("职业病危害因素检测已过期,请及时办理!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
ElseIf dr11 IsNot Nothing Then
MessageBox.Show("职业病危害因素检测即将到期,请及时办理!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
到期提醒功能现在能实现了,
此主题相关图片如下:阿里旺旺图片20180831190430.jpg
想要在提示的内容最前面加上企业名称,能不能让企业名称在第一行,并加一个冒号,然后换行,第二行是提示的内容?该如何写代码?
谢谢!
[此贴子已经被作者于2018/8/31 19:16:52编辑过]