送货单由用户张三开单,由李四审核。
当张三开送货单保存时,系统自动发给李四发一个消息:“张三已新增送货单20151028001,请审核”。
李四收到此消息后,点此消息,打开这张送货单,进行审核,审核后,反馈回张三消息:“送货单20151028001已由用户李四审”
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
上述代码在系统空闲的时间检查fhs集合,判断是否有新的审核申请;如果有新的申请且审核申请提示窗口未显示,则显示集合中的第一个审核申请,并将其从集合中移除。
当张三一次性开了很多个订单,李四打开系统会弹出第一个需要审核的订单,弹出的消息李四不关闭的话会一直显示,当李四不关闭弹出的消息框,然后直接关闭系统,那么李四第二次打开系统的时候,之前张三开的那些订单的消息还能继续弹出来不?目前测试的时候是不能弹出来了,能不能实现这样的,当李四打开系统后,会弹出第一个需要审核的消息,李四不关闭消息窗口,直接关闭系统,等李四再次打开系统会,继续从第二个消息开始继续弹出。