If e.DataRow("安排") = "安排加工" Then
If e.DataRow("类别") = "计划" Then
If e.DataCol.name Like "*序_工程名*" OrElse e.DataCol.name Like "*序_调度设备*" Then
Dim idx As Integer = e.DataCol.name.replace("第", "").replace("序_工程名", "").replace("序_调度设备", "")
If e.DataRow.IsNull("第" & idx & "序_工程名") = False AndAlso e.DataRow.IsNull("第" & idx & "序_调度设备") = False Then
Dim dr6 As DataRow
dr6 = DataTables("设备别任务").Find("开始日期 = '" & e.DataRow("第" & idx & "序_开始日") & "' And 工程 = '" & e.DataRow("第" & idx & "序_工程名") & "' AND 指令 单 = '" & e.DataRow("指令单") & "'")
If dr6 Is Nothing Then
dr6 = DataTables("设备别任务").AddNew()
dr6("开始日期") = e.DataRow("第" & idx & "序_开始日")
dr6("设备") = e.DataRow("第" & idx & "序_调度设备")
dr6("指令单") = e.DataRow("指令单")
dr6("部品ID") = e.DataRow("部品ID")
dr6("部组名") = e.DataRow("部组名")
dr6("工程") = e.DataRow("第" & idx & "序_工程名")
dr6("结束日期") = e.DataRow("第" & idx & "序_结束日")
dr6("投入数量") = e.DataRow("第" & idx & "序_投入数量")
dr6("作业者") = e.DataRow("第" & idx & "序_作业者")
dr6("加工先") = e.DataRow("第" & idx & "序_加工先")
dr6("配膳日") = e.DataRow("第" & idx & "序_配膳日")
dr6("良品率") = e.DataRow("第" & idx & "序_良品率")
dr6("段") = e.DataRow("第" & idx & "序_段")
dr6("装") = e.DataRow("第" & idx & "序_装")
dr6("机") = e.DataRow("第" & idx & "序_机")
dr6("标准耗时天") = e.DataRow("第" & idx & "序_标准耗时天")
dr6("夜") = e.DataRow("第" & idx & "序_夜")
dr6("瓶颈") = e.DataRow("第" & idx & "序_瓶颈")
dr6("指令单变化") = e.DataRow("分类")
End If
End If
End If
Tables("设备别任务").Sort = "设备,指令单,开始日期"
End If
End If
加好友 
发短信
Post By：2017/9/7 10:41:00 [显示全部帖子]
此主题相关图片如下：44.png
