父表 Select Case e.DataCol.name
Case "进料表编号"
If e.DataRow.IsNull("进料表编号") Then
DataTables("角钢进料表明细").DeleteFor("进料表编号='" & e.DataRow("进料表编号") & "'")
e.DataRow("状态_发料完成") = False
e.DataRow("状态_U8出库") = False
Else
If e.OldValue Is Nothing
Dim ndr As Row = Tables("角钢进料表明细").AddNew
ndr("进料表编号") = e.DataRow("进料表编号")
ndr("工程名称") = e.DataRow("工程名称")
ndr("塔型") = e.DataRow("塔型")
ndr("仓储配料员") = e.DataRow("仓储配料员")
ndr.Move(0)
End If
Dim cnt As Integer = DataTables("角钢进料表明细").Compute("sum(未发数量)","进料表编号='" & e.NewValue & "'")
Dim dr As DataRow
If cnt <= 0 AndAlso cnt <> Nothing Then
e.DataRow("状态_发料完成") =(cnt<=0 AndAlso dr Is Nothing)
dr = DataTables("角钢进料表明细").Find("进料表编号='" & e.DataRow("进料表编号") & "'and (U8出库=false)")
End If
e.DataRow("状态_U8出库") = (cnt<=0 AndAlso dr Is Nothing)
End If
End Select
If e.DataCol.Name = "工程名称"
Dim Filter As String = "[进料表编号] = '" & e.DataRow("进料表编号") & "'"
Dim drs As List(Of DataRow) = DataTables("角钢进料表明细").Select(Filter)
For Each dr2 As DataRow In drs
dr2("工程名称") = e.DataRow("工程名称")
Next
End If
If e.DataCol.Name = "塔型"
Dim Filter As String = "[进料表编号] = '" & e.DataRow("进料表编号") & "'"
Dim drs As List(Of DataRow) = DataTables("角钢进料表明细").Select(Filter)
For Each dr2 As DataRow In drs
dr2("塔型") = e.DataRow("塔型")
Next
End If
If e.DataCol.Name = "仓储配料员"
Dim Filter As String = "[进料表编号] = '" & e.DataRow("进料表编号") & "'"
Dim drs As List(Of DataRow) = DataTables("角钢进料表明细").Select(Filter)
For Each dr2 As DataRow In drs
dr2("仓储配料员") = e.DataRow("仓储配料员")
Next
End If
加好友 
发短信
Post By：2019/7/10 14:53:00 [显示全部帖子]
此主题相关图片如下：1562815588(1).png