生产计划，datacolchanged事件
Select Case e.DataCol.Name
Case "产品","生产数量"
If e.DataRow.IsNull("产品") = False AndAlso e.DataRow.IsNull("生产数量") = False Then
Dim d2 As DataRow
For Each dr As DataRow In DataTables("零件用量").Select("产品='" & e.DataRow("产品") & "'")
d2 = DataTables("零件需求").Find("产品='" & e.DataRow("产品") & "' and 零件='" & dr("零件") & "'")
If d2 Is Nothing Then
d2 = DataTables("零件需求").AddNew
d2("产品") = e.DataRow("产品")
d2("零件") = dr("零件")
End If
d2("生产数量") = e.DataRow("生产数量")
d2("需求数量") = e.DataRow("生产数量") * dr("用量")
Next
End If
End Select
加好友 
发短信
Post By：2020/3/21 8:35:00 [只看该作者]
