以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- MessageReceived (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132109) |
-- 作者:qinlao666 -- 发布时间:2019/3/14 9:17:00 -- MessageReceived 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 filter = "请购单号 in (\'" & pts(1).replace(",", "\',\'") & "\')" DataTables("生产计划").removefor(filter) DataTables("生产计划").AppendLoad(filter) ElseIf pts.Length = 4 AndAlso pts(0) = "+b" \'如果是申请审核消息 fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) \'将主健?单号和制单人合成为一个字符串存储在集合中 ElseIf pts.Length = 3 AndAlso pts(0) = "-b" \'如果是审核通过消息 PopMessage("采购计划" & pts(1) & "已由" & pts(2) & "审核通过!") Dim filter = "请购单号 in (\'" & pts(1).replace(",", "\',\'") & "\')" DataTables("采购计划").removefor(filter) DataTables("采购计划").AppendLoad(filter) ElseIf pts.Length = 4 AndAlso pts(0) = "+c" \'如果是申请审核消息 fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) \'将主健?单号和制单人合成为一个字符串存储在集合中 ElseIf pts.Length = 3 AndAlso pts(0) = "-c" \'如果是审核通过消息 PopMessage("外协计划" & pts(1) & "已由" & pts(2) & "审核通过!") Dim filter = "请购单号 in (\'" & pts(1).replace(",", "\',\'") & "\')" DataTables("外协计划").removefor(filter) DataTables("外协计划").AppendLoad(filter) end if 请教老师,SystemIdle中的命令该如何写
|
-- 作者:有点甜 -- 发布时间:2019/3/14 9:50:00 --
没看懂你的问题,不用修改systemidle代码啊,现在你遇到什么情况?
|
-- 作者:qinlao666 -- 发布时间:2019/3/14 10:14:00 -- 我在采购计划表中提交申请,触发的都是下面那条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 |
-- 作者:有点甜 -- 发布时间:2019/3/14 10:36:00 --
定义多个变量fhs1、fhs2、fhs3这样的变量,不同的表格,使用不同的变量
|