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


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

主题：[求助]QPEN QQ自定义信息提示窗口
帅哥哟，离线，有人找我吗？
liumiao123
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		[求助]QPEN QQ自定义信息提示窗口  发帖心情 Post By：2018/10/6 9:43:00 [只看该作者]

我弄了2个OPENQQ自定义提示··一个审核信息·把2个窗口都弹出来··请问老师·哪里出问题了··
项目事件SystemIdle·
If fhs.Count > 0 AndAlso Forms("新增订单").Opened = False Then
    Dim pts() As String = fhs(0).Split("|")
    fhs.RemoveAt(0)
    With Forms("新增订单")
        .Open()
        .Controls("Label1").Text = pts(2) & "新增订单" & pts(1) & ",请审核!"
        .Controls("Label2").Text = pts(0) '将发货单主健设置为Label2的标题
    End With
End If

If fhsa.Count > 0 AndAlso Forms("提示").Opened = False Then
    Dim pts1() As String = fhsa(0).Split("|")
    fhsa.RemoveAt(0)
    With Forms("提示")
        .Open()
        .Controls("Label1").Text = pts1(2) & "新增订货单" & pts1(1) & ",请审核确认!"
        .Controls("Label2").Text = pts1(0) '将发货单主健设置为Label2的标题
    End With
End If

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

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

全局代码·
Public fhs As New List(of String)
Public fhsa As New List(of String)

生产通知单的审核也触发采购订单表的审核··请老师帮忙看看哪里没有弄好
我有2个PopupForm窗·一个是名字叫·提示·一个名字叫·新增订单·

[此贴子已经被作者于2018/10/6 9:45:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)是什么表名，对应做什么操作。
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）你发送过来的信息，必须加上表名的信...  发帖心情 Post By：2018/10/6 13:13:00 [只看该作者]


老师·我是不是改错了呢·怎么不提示呢·
·
我提交是这样的·
If MessageBox.Show(" 是否导提交到计划部门 !","提示",MessageBoxButtons.YesNo)=DialogResult.Yes Then
Dim r As Row  = Tables("生产通知单").Current
r.Save()
QQClient.Send("生产部.李海荣","+@|" & r("_Identify") & "|" & r("计划合同编号") & "|" & User.Name & "|生产通知单" ,True)
End If

但是从来不现实提示框·

审核是这样的·
If MessageBox.Show(" 是否提交回执销售部 !","提示",MessageBoxButtons.YesNo)=DialogResult.Yes Then
Dim r As Row  = Tables("生产通知单").Current
r("审核状态") = True
r.Save()
'发送审核通过的消息
QQClient.Send("销售部.吴磊","+@|" & r("计划合同编号") & "|" & User.Name & "|生产通知单" ,True)
End If


----
可以出现显示框·
但出现的应该是提交那个显示框·他最后显示成审核提示样子
图片是审核完出现的提示框·
就是顺序出现反了·
提交没有出现提示·

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/10/6 13:13:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）你发送过来的信息，必须加上表名的信...  发帖心情 Post By：2018/10/6 13:34:00 [只看该作者]


现在他出现2种同时出现·
RT
·
应该出现一种模式·现在全部触发·

图片点击可在新窗口打开查看此主题相关图片如下：采购.jpg
图片点击可在新窗口打开查看

应该出现下面图的这种··

图片点击可在新窗口打开查看此主题相关图片如下：生产.jpg
图片点击可在新窗口打开查看



[此贴子已经被作者于2018/10/6 13:34:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）修改代码比如 Dim pts() As...  发帖心情 Post By：2018/10/6 14:46:00 [只看该作者]

msgbox(e.message)
msgbox(pts.length)



---------------
是不是要重新定义下呢·不然他不出现自己弄的提示窗口
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、5楼代码弹出什么？

 

2、不会做就做个实例发上来测试。
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）1、5楼代码弹出什么？ 2、不...  发帖心情 Post By：2018/10/6 14:51:00 [只看该作者]

弹出个这个·
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20181006144056.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）回复8楼，send的代码加上表名啊  发帖心情 Post By：2018/10/6 15:43:00 [只看该作者]

甜老师·改表名字·也还会出现那个框·
·请老师帮忙看下实际情况

[此贴子已经被作者于2018/10/8 8:57:42编辑过]
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询