If e.DataCol.name = "销售数量" Then
If e.DataRow("销售单号") IsNot Nothing Then
msgbox(e.DataRow("销售数量"))
Dim Filter2 As String = "[产品代号] = '" & e.DataRow("产品代号") & "'"
Dim drs As List(Of DataRow) = DataTables("装配清单").Select(Filter2)
msgbox(drs.count)
For Each dr As DataRow In drs
Dim dr2 As DataRow = DataTables("腾龙供料汇总").Find("销售单号 = '" & e.DataRow("销售单号") & "' and 指定用料 = '" & dr("零件代号") & "'")
If dr2 IsNot Nothing Then
msgbox(dr("零件类别"))
If dr("零件类别") = "原料" Then
msgbox(dr2("销售总重"))
msgbox(e.newvalue - e.oldvalue)
dr2("销售总重") = dr2("销售总重") + (e.newvalue - e.oldvalue) * dr("零件用量")/1000
Else
dr2("销售总重") = dr2("销售总重") + (e.newvalue - e.oldvalue) * dr("零件用量")
End If
msgbox(dr2("销售总重"))
dr2("销售总重输入记录") = User.Name & " " & Date.Now
Else
Dim dr3 As Row = Tables("腾龙供料汇总").AddNew()
dr3("销售单号") = e.DataRow("销售单号")
dr3("指定用料") = dr("零件代号")
If dr("零件类别") = "原料" Then
dr3("销售总重") = e.DataRow("销售数量") * dr("零件用量")/1000
Else
dr3("销售总重") = e.DataRow("销售数量") * dr("零件用量")
End If
msgbox(dr2("销售总重"))
dr3("销售总重输入记录") = User.Name & " " & Date.Now
End If
Next
End If
End If
加好友 
发短信
Post By：2021/7/12 20:17:00 [显示全部帖子]
