之前由审核状态变为批准状态时可以推送通知,现在又加了一些代码就不行了,不知道是不是这么写,应该怎么改一下?
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