以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  MessageReceived  (http://www.foxtable.com/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这样的变量，不同的表格，使用不同的变量