给到期提醒信息加上企业名称 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

企业基本信息表中有列：企业名称、职业危害检测、职业危害检测有效期等列，设置了如下代码：

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编辑过]

主题：给到期提醒信息加上企业名称