以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135234)
--  作者：13775189031
--  发布时间：2019/5/21 13:40:00
--  代码
请教：想实现以下功能，该怎么改代码
当“喷砂”=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
--  作者：有点甜
--  发布时间：2019/5/21 13:48:00
--  

 

请添加一个逻辑列【录入完成，添加行】，根据这个逻辑列写代码。

 

因为：你勾选第一个列的时候，不知道你还会不会勾选第二个，不知道你是不是完成了录入。需要额外勾选另一个确认你录入完成。