我弄了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编辑过]
加好友 
发短信
Post By：2018/10/6 9:43:00 [显示全部帖子]
此主题相关图片如下：1.png
此主题相关图片如下：采购.jpg
