Select Case e.DataCol.Name
Case "本工序_投产日期","本工序_交付日期"
If e.DataRow.IsNull("本工序_投产日期") OrElse e.DataRow.IsNull("本工序_交付日期") Then
e.DataRow("安排生产天数_天")=Nothing
Else
Dim tp As TimeSpan = e.DataRow("本工序_交付日期") - e.DataRow("本工序_投产日期")
e.DataRow("安排生产天数_天")=tp.TotalDays+1
End If
Case "序号"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow = DataTables("拉动排产计划_浸漆").Find("序号 = '" & dr("序号") & "'")
If pr IsNot Nothing And pr("品种_特殊要求") IsNot Nothing Then
dr("合同编号") = pr("合同编号")
dr("品种_杆径") = pr("品种_杆径")
dr("品种_材质") = pr("品种_材质")
dr("品种_长度") = pr("品种_长度")
dr("品种_级别") = pr("品种_级别")
dr("品种_接箍") = pr("品种_接箍")
dr("品种_特殊要求") = pr("品种_特殊要求")
dr("品种_ID") = pr("品种_ID")
dr("贸易性质_内贸") = pr("贸易性质_内贸")
dr("贸易性质_外贸") = pr("贸易性质_外贸")
dr("浸漆工序_需要数量_根")= pr("本工序_投产数量_根")
dr("浸漆工序_需要日期")= pr("本工序_交付日期")
Else
Dim qr As DataRow = DataTables("内部合同").Find("序号 = '" & dr("序号") & "'")
qr("合同编号") = pr("合同编号")
qr("品种_杆径") = pr("品种_杆径")
qr("品种_材质") = pr("品种_材质")
qr("品种_长度") = pr("品种_长度")
qr("品种_级别") = pr("品种_级别")
qr("品种_接箍") = pr("品种_接箍")
qr("品种_特殊要求") = pr("品种_特殊要求")
qr("品种_ID") = pr("品种_ID")
qr("贸易性质_内贸") = pr("贸易性质_内贸")
qr("贸易性质_外贸") = pr("贸易性质_外贸")
qr("交付数量_根")= pr("本工序_投产数量_根")
qr("交付日期")= pr("本工序_交付日期")
End If
Case "品种_杆径","品种_长度"
Dim dc As DataRow = e.DataRow
Dim pc As DataRow
Dim filter1 As String
filter1 = "品种_杆径 = '" & dc("品种_杆径") & "' And 品种_长度 = '" & dc("品种_长度") & "'"
pc = DataTables("工序能力表").Find(filter1)
If pc IsNot Nothing Then
dc("本工序_日生产能力_根") = pc("日生产能力_包装")
End If
End Select
加好友 
发短信
Post By：2016/6/15 16:45:00 [只看该作者]
