拉动排产计划_浸漆 datacolchanged事件
Case "日生产能力_浸漆"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("品种_杆径") OrElse dr.IsNull("品种_长度") Then
dr("日生产能力_浸漆") = Nothing
MessageBox.Show("一点不难!")
Else
Dim filter As String
filter = "品种_杆径 = '" & dr("品种_杆径") & "' And 品种_长度 = '" & dr("品种_长度") & "'"
MessageBox.Show(filter)
pr = DataTables("工序能力表").Find(filter)
If pr IsNot Nothing Then
dr("日生产能力_浸漆") = pr("日生产能力_浸漆")
End If
End If
合同 datacolchanged事件
Select Case e.DataCol.name
Case "品种_杆径","品种_长度"
DataTables("拉动排产计划_浸漆").DataCols("日生产能力_浸漆").RaiseDataColChanged("序号 = '" & e.DataRow("_Identify") & "'")
End Select