- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 给到期提醒信息加上企业名称 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124167)
-- 发布时间：2018/8/31 19:13:00
-- 给到期提醒信息加上企业名称
企业基本信息表中有列：企业名称、职业危害检测、职业危害检测有效期等列，设置了如下代码：
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编辑过]
-- 发布时间：2018/8/31 19:47:00
--
If dr12 IsNot Nothing Then
MessageBox.Show(dr12("企业名称") & ":" & vbcrlf & "职业病危害因素检测已过期,请及时办理!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
ElseIf dr11 IsNot Nothing Then
MessageBox.Show(dr11("企业名称") & ":" & vbcrlf & "职业病危害因素检测即将到期,请及时办理!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
-- 发布时间：2018/9/2 9:11:00
--
谢谢，实现了