项目SystemIdle事件
Dim Str1 As String = "用户: " & User.Name
Str1 = Str1 & " 用户分组: " & user.group
StatusBar.Message1 = Str1
If fhs.Count > 0 AndAlso Forms("审核申请").Opened = False Then
Dim ptn() As String = fhs(0).Split("|")
fhs.RemoveAt(0)
With Forms("审核申请")
.Open()
.Controls("Label1").Text = ptn(2) & "新增订货单" & ptn(1) & ",请审核!"
.Controls("Label2").Text = ptn(0) '将发货单主健设置为Label2的标题
End With
End If
If pzs.Count > 0 AndAlso Forms("批准申请").Opened = False Then
Dim ptn() As String = pzs(0).Split("|")
pzs.RemoveAt(0)
With Forms("批准申请")
.Open()
.Controls("Label1").Text = ptn(2) & "新增订货单" & ptn(1) & ",请批准!"
.Controls("Label2").Text = ptn(0) '将发货单主健设置为Label2的标题
End With
End If
加好友 
发短信
Post By：2018/10/7 11:05:00 [只看该作者]
