以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  openQQ接收问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126877)
--  作者：Engineer1
--  发布时间：2018/10/30 17:17:00
--  openQQ接收问题
之前由审核状态变为批准状态时可以推送通知，现在又加了一些代码就不行了，不知道是不是这么写，应该怎么改一下？

If User.isrole("审核") And dr.DataTable.Name = "lhjc"  Then
    If dr("检测状态") = "待审核" Then
        PopMessage("有新的报告需要审核!","提示",PopIconEnum.Infomation)
    End If
ElseIf User.isrole("批准") And dr.DataTable.Name = "lhjc"  Then
    If dr("检测状态") = "待批准" Then
        PopMessage("有新的报告需要批准!","提示",PopIconEnum.Infomation)
    End If
ElseIf User.isrole("审核") And dr.DataTable.Name = "jljz"  Then
    If dr("检测状态") = "待审核" Then
        PopMessage("有新的报告需要审核!","提示",PopIconEnum.Infomation)
    End If
ElseIf User.isrole("批准") And dr.DataTable.Name = "jljz"  Then
    If dr("检测状态") = "待批准" Then
        PopMessage("有新的报告需要批准!","提示",PopIconEnum.Infomation)
    End If
ElseIf user.isrole("采购管理") And dr.DataTable.Name = "cggl" Then
    If dr("提交人") <> "" Then
        popmessage("有新的采购需求,请及时处理!","提示",popiconenum.infomation)
    End If

End If
--  作者：有点甜
--  发布时间：2018/10/30 17:20:00
--  

1、本来的代码是怎样的可以正常？贴出之前的代码

 

2、加入msgbox，弹出各个值，看执行到哪里后停止了执行