Select Case e.DataCol.Name
Case "下单情况_料号","生产计划_工序号"
If e.DataRow.IsNull("下单情况_料号") OrElse e.DataRow.IsNull("生产计划_工序号")
e.DataRow("生产计划_允废率") = Nothing
'剩下自己补充完整
Else
Dim gx = e.DataRow("生产计划_工序号")
Dim fdr As DataRow = DataTables("产品加工工序").find("物料料号 = '" & e.DataRow("下单情况_料号") & "'")
If fdr IsNot Nothing
e.DataRow("生产计划_允废率") = fdr("工序" & gx & "_允废率")
e.DataRow("生产计划_内容") = fdr("工序" & gx & "_内容")
e.DataRow("生产计划_机台") = fdr("工序" & gx & "_机台")
e.DataRow("生产计划_定额") = fdr("工序" & gx & "_定额")
e.DataRow("生产计划_准备工时") = fdr("工序" & gx & "_准备工时")
End If
End If
End Select
加好友 
发短信
Post By：2019/5/28 22:49:00 [显示全部帖子]
