Foxtable(狐表)用户栏目专家坐堂 → [求助]QPEN QQ自定义信息提示窗口


  共有2892人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/6 11:25:00 [显示全部帖子]

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

 

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

 

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

 

那你就要改成

 

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/6 14:24:00 [显示全部帖子]

修改代码比如

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/6 14:49:00 [显示全部帖子]

1、5楼代码弹出什么?

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/6 14:52:00 [显示全部帖子]

回复8楼,send的代码加上表名啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/6 15:59:00 [显示全部帖子]

代码改成

 

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


 回到顶部