主题：自定义流程通知窗口

你的意思是这段代码没有执行？那你加上msgbox，弹出信息，看是否进入执行了里面的代码

ElseIf ptn.Length = 3 AndAlso ptn(0) = "-@" '如果是审核通过消息
    PopMessage("订单" & ptn(1) & "已由" & ptn(2) & "批准通过!")
    Dim dr As DataRow = DataTables("订单").Find("单号 = '" & ptn(1) & "'")
    If dr IsNot Nothing Then
        dr.Load
    End If
End If