专家坐堂-popmessageFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  popmessage  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129773)

--  作者：deliangzhaoe
--  发布时间：2019/1/5 20:31:00
--  popmessage
到期提醒设置了如下代码：
Dim dt4 As Date = Date.Today.AddDays(30)
Dim dtdq As Date = Date.Today
Dim dr38 As String = DataTables("应急预案台账").GetComboListString("企业名称", "下次修订日期 >= #" & dtdq & "# and 下次修订日期 <= #" & dt4 & "#")
Dim dr39 As String = DataTables("应急预案台账").GetComboListString("企业名称", "下次修订日期 < #" & dtdq & "#")
If dr39 > "" Then
    popmessage(dr39 & ":" & vbcrlf & "    安全应急预案已过期,请及时办理!","警告",PopIconEnum.alert,8)
End If
If dr38 > "" Then
    popmessage(dr38 & ":" & vbcrlf & "    安全应急预案即将到期,请及时办理!","提示",PopIconEnum.Infomation,8)
End If

想让提示框显示的内容带上到期的日期（即下次修订日期），如：“安全应急预案已于**年**月**日过期,请及时办理!”

怎么改一下代码？谢谢

--  作者：有点甜
--  发布时间：2019/1/6 23:25:00
--

Dim dt4 As Date = Date.Today.AddDays(30)
Dim dtdq As Date = Date.Today
Dim drs1 = DataTables("应急预案台账").Select("下次修订日期 >= #" & dtdq & "# and 下次修订日期 <= #" & dt4 & "#")
Dim drs2 = DataTables("应急预案台账").Select("下次修订日期 < #" & dtdq & "#")

If drs2.count > 0 Then
    Dim str As String = ""
    For Each dr As DataRow In drs2
        str &= dr("企业名称") & ":安全应急预案已于" & dr("下次修订日期") & "过期,请及时办理!" & vbcrlf
    Next
    popmessage(str,"警告",PopIconEnum.alert,8)
End If

If drs1.count > 0 Then
    Dim str As String = ""
    For Each dr As DataRow In drs1
        str &= dr("企业名称") & ":安全应急预案即将到期于" & dr("下次修订日期") & "过期,请及时办理!" & vbcrlf
    Next
    popmessage(str,"提示",PopIconEnum.Infomation,8)
End If