以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义流程通知窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177891)

--  作者:秋夜凉了
--  发布时间:2022/6/8 16:28:00
--  [求助]自定义流程通知窗口
请老师帮我看下,是哪里弄错了。我这个怎么不发弹窗·通知


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:qqclient.foxdb



--  作者:有点蓝
--  发布时间:2022/6/8 16:45:00
--  
2个客户端正常登录了吗?

调试一下
msgbox(e.Message)
Dim pts() As String = e.Message.Split("|")
msgbox(pts.Length)
If pts.Length = 5 AndAlso pts(0) = "+@"  Then\'如果是申请审核消息
msgbox(pts(4))
    If pts(4) = "销售订单" Then
        fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) \'将主健?单号和制单人合成为一个字符串存储在集合中
    End If
ElseIf pts.Length = 4 AndAlso pts(0) = "-@" \'如果是审核通过消息
msgbox(pts(3))
    If pts(3) = "销售订单" Then
        PopMessage("销售订单" & pts(1) & "已由" & pts(2) & "确认通过!")
        Dim dr As DataRow = DataTables("销售订单").Find("订单_编号 = \'" & pts(1) & "\'")
        If dr IsNot Nothing Then
            dr.Load
        End If
    End If
End If

--  作者:秋夜凉了
--  发布时间:2022/6/8 17:25:00
--  回复:(有点蓝)2个客户端正常登录了吗?调试一下msg...
都正常在登录·
--  作者:秋夜凉了
--  发布时间:2022/6/8 17:40:00
--  回复:(有点蓝)2个客户端正常登录了吗?调试一下msg...
解决了~~要2台电脑登录·切换用户·不显示·
--  作者:有点蓝
--  发布时间:2022/6/8 17:42:00
--  
同时打开2个项目,使用不同人登录即可。同一个项目切换用户肯定是无法测试的