请教：想实现以下功能，该怎么改代码
当“喷砂”=true,“油漆”=false,则 ndr("外协项目") = "喷砂"
当“喷砂”=false,“油漆”=true,则 ndr("外协项目") = "油漆"
当“喷砂”=true,“油漆”=true,则 ndr("外协项目") = "喷砂+油漆"
当“喷砂”=false,“油漆”=false,则不增加行
Select Case e.DataCol.name
Case "喷砂"
If e.newvalue = False Then
DataTables("外协作清单").DeleteFor("零部件编号 = '" & e.DataRow("零部件编号") & "' And 外协项目 = '" & "喷砂" & "'")
Else
Dim ndr As Row = Tables("外协作清单").AddNew
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("外协项目") = "喷砂"
ndr("尺寸") = e.DataRow("下料尺寸")
ndr("标识") = e.DataRow("原材料标识")
ndr("工艺员") = e.DataRow("工艺员")
ndr.Move(0)
End If
End Select
Select Case e.DataCol.name
Case "油漆"
If e.newvalue = False Then
DataTables("外协作清单").DeleteFor("零部件编号 = '" & e.DataRow("零部件编号") & "' And 外协项目 = '" & "油漆" & "'")
Else
Dim ndr As Row = Tables("外协作清单").AddNew
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("外协项目") = "油漆"
ndr("尺寸") = e.DataRow("下料尺寸")
ndr("标识") = e.DataRow("原材料标识")
ndr("工艺员") = e.DataRow("工艺员")
ndr.Move(0)
End If
End Select
加好友 
发短信
Post By：2019/5/21 13:40:00 [只看该作者]
