主题：[求助]QPEN QQ自定义信息提示窗口

你发送过来的信息，必须加上表名的信息，或者类型的信息，不然如何区分是生产的还是采购的？

比如之前的发送代码是这样

QQClient.Send("李四","+@|" & r("_Identify") & "|" & r("单号") & "|" & User.Name)

那你就要改成

QQClient.Send("李四","+@|" & r("_Identify") & "|" & r("单号") & "|" & User.Name & "|表名")

判断pts(4)是什么表名，对应做什么操作。

修改代码比如

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

1、5楼代码弹出什么？

2、不会做就做个实例发上来测试。

代码改成

Dim pts() As String  = e.Message.Split("|")
If pts.Length = 5 AndAlso pts(0) = "+@" '如果是申请审核消息
    If pts(4) = "生产通知单" Then
        fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) '将主健?单号和制单人合成为一个字符串存储在集合中
    End If
ElseIf pts.Length = 4 AndAlso pts(0) = "-@" '如果是审核通过消息
    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

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