代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name
    Case "预算编号", "物资说明", "编制人"
        Dim ndr As object= DataTables("物资采购明细表").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
        If ndr Is Nothing Then
            ndr = Tables("物资采购明细表").AddNew
            ndr.Move(0)
        End If
        ndr("预算编号") = e.DataRow("预算编号")
        ndr("生产令号") = e.DataRow("生产令号")
        ndr("项目名称") = e.DataRow("项目名称")
        If e.DataRow("物资说明") = "消耗品" Then
            ndr("物资说明") = e.DataRow("物资说明")
        End If
        ndr("编制人") = e.DataRow("编制人")
        ndr("物资部采购预算编号") = e.DataRow("审核部门_采购预算编号")
        ndr("是否取消采购") = e.DataRow("取消采购")
        ndr("中标情况_招标采购签收日期") = e.DataRow("招采中心_签收日期")
End Select

加上红色代码，看弹出什么

If e.DataRow("GTAW")=False Then

msgbox(1)
DataTables("焊接明细表").DeleteFor("零部件编号 = '" & e.DataRow("零部件编号") & "' And 焊缝编号 = '" & e.DataRow("焊缝编号") & "' And 工艺卡号 = '" & e.DataRow("工艺卡号") & "' And 焊接方法 = '" & "GTAW" & "'")

msgbox("零部件编号 = '" & e.DataRow("零部件编号") & "' And 焊缝编号 = '" & e.DataRow("焊缝编号") & "' And 工艺卡号 = '" & e.DataRow("工艺卡号") & "' And 焊接方法 = '" & "GTAW" & "'")
Else

Select Case e.DataCol.Name
    Case "到货数量","到货_批次","到货_一次到全日期","到货_第一批到货日期"
        If e.DataRow("到货数量") = 0 Then
            DataTables("物资检验详单").DeleteFor("编号='" & e.DataRow("编号") & "'")
        Else
            If e.DataRow("物资说明") = "原材料" Then
                DataTables("物资检验详单").DeleteFor("编号='" & e.DataRow("编号") & "'")
                For i As Integer = 1 To e.DataRow("到货_批次")
                    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("单位") = e.DataRow("单位")
                    ndr("供应商") = e.DataRow("中标情况_中标单位")
                    ndr.Move(0)
                    If e.DataRow.IsNull("到货_一次到全日期") = False AndAlso e.DataRow.IsNull("到货_第一批到货日期") = True Then
                        ndr("送检_送检日期") = e.DataRow("到货_一次到全日期")
                    Else
                        ndr("送检_送检日期") = e.DataRow("到货_第一批到货日期")
                    End If
                Next
            End If
        End If

End Select

主题：代码