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中的命令该如何写
加好友 
发短信
Post By：2019/3/14 9:17:00 [显示全部帖子]
