项目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) & "款,样衣或面料没有OK--请修正!"
.Controls("Label2").Text = pts(0)
End With
End If
If fhsf.Count > 0 AndAlso Forms("裁床审核通知").Opened = False Then ' 审核裁数
Dim pts() As String = fhsf(0).Split("|")
fhsf.RemoveAt(0)
With Forms("裁床审核通知")
.Open()
.Controls("Label1").Text = pts(2) & "新增裁床单" & pts(1) & ",请审核!"
.Controls("Label2").Text = pts(0)
End With
End If
If fhsd.Count > 0 AndAlso Forms("补裁申请通知").Opened = False Then ' 补裁申请
Dim pts() As String = fhsd(0).Split("|")
fhsd.RemoveAt(0)
With Forms("补裁申请通知")
.Open()
.Controls("Label1").Text = pts(2) & " 订单--" & pts(1) & "款,需要补裁 请您确认!"
.Controls("Label2").Text = pts(0)
End With
End If
If fhsg.Count > 0 AndAlso Forms("生产修正通知").Opened = False Then ' 补裁申请
Dim pts() As String = fhsg(0).Split("|")
fhsg.RemoveAt(0)
With Forms("生产修正通知")
.Open()
.Controls("Label1").Text = pts(2) & " 订单--" & pts(1) & "款,裁片工艺未回厂 或 辅料没有OK--请修正!"
.Controls("Label2").Text = pts(0)
End With
End If
此主题相关图片如下：00.jpg
[此贴子已经被作者于2016/3/27 18:15:04编辑过]
加好友 
发短信
Post By：2016/3/27 18:15:00 [只看该作者]
