请教：多行数据生成一行后，生成的“数量”列为原数量之和，要怎么改
如：数量列
5
1
2
生成一行后，数量为8
Select Case e.DataCol.name
Case "焊材领用_多个零件"
If e.DataRow("焊材领用_多个零件") = True AndAlso e.DataRow("焊接要求") = "首次焊接" Then
Dim ndr As DataRow = DataTables("焊材领用记录").Find("零部件编号 = '" & e.DataRow("零部件编号") & "' And 工艺卡号 = '" & e.DataRow("工艺卡号") & "' And 焊接方法 = '" & e.DataRow("焊接方法") & "' And 焊材名称 = '" & e.DataRow("焊材名称") & "' And 焊材规格 = '" & e.DataRow("焊材规格") & "' And 焊材型号 = '" & e.DataRow("焊材型号") & "' And 焊材领用_日期 = '" & e.DataRow("领用日期") & "'")
If ndr Is Nothing Then
Dim nr As Row = Tables("焊材领用记录").AddNew
nr.Move(0)
ndr = nr.DataRow
End If
ndr("报告编号") = e.DataRow("报告编号")
ndr("零部件编号") = e.DataRow("零部件编号")
ndr("生产令号") = e.DataRow("生产令号")
ndr("机组") = e.DataRow("机组")
ndr("零部件名称") = e.DataRow("零部件名称")
ndr("零部件图号") = e.DataRow("零部件图号")
ndr("数量") = e.DataRow("数量")
ndr("标识号") = e.DataRow("标识号")
ndr("焊缝编号") = e.DataRow("焊缝编号")
ndr("工艺卡号") = e.DataRow("工艺卡号")
ndr("焊接方法") = e.DataRow("焊接方法")
ndr("领用人") = e.DataRow("实际操作焊工姓名")
ndr("焊材领用_多个零件") = True
ndr("焊材领用_日期") = Date.today
ndr("焊材领用_时间") = DateTime.Now
ndr("焊接要求") = "首次焊接"
ndr("焊材名称") = e.DataRow("焊材名称")
ndr("焊材规格") = e.DataRow("焊材规格")
ndr("焊材型号") = e.DataRow("焊材型号")
ndr("炉批号") = e.DataRow("焊材炉批号")
End If
End Select
加好友 
发短信
Post By：2019/5/15 16:38:00 [只看该作者]
