主题：增加行前查找

Case "领料情况_不分机组"
    If e.newvalue = False Then
        DataTables("领料清单").DeleteFor("编号='" & e.DataRow("编号") & "'")
    Else
        If e.DataRow("物资说明") = "紧固件" Then
            Dim ndr1 As DataRow = DataTables("领料清单").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
            If ndr1 Is Nothing Then
                Dim ndr2 As DataRow = DataTables("领料清单").AddNew
            End If
            ndr2("编号") = e.DataRow("编号")
            ndr2("预算编号") = e.DataRow("预算编号")
            ndr2("生产令号") = e.DataRow("生产令号")
            ndr2("项目名称") = e.DataRow("项目名称")
            ndr2("物资说明") = e.DataRow("物资说明")
            ndr2("单位") = "批"
            ndr2("领料数量") = "1"
            ndr2("领料日期") = Date.today           
        End If

Case "领料情况_不分机组"
    If e.newvalue = False Then
        DataTables("领料清单").DeleteFor("编号='" & e.DataRow("编号") & "'")
    Else
        If e.DataRow("物资说明") = "紧固件" Then
            Dim ndr2 As DataRow = DataTables("领料清单").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
            If ndr2 Is Nothing Then
                ndr2 = DataTables("领料清单").AddNew
            End If
            ndr2("编号") = e.DataRow("编号")
            ndr2("预算编号") = e.DataRow("预算编号")
            ndr2("生产令号") = e.DataRow("生产令号")
            ndr2("项目名称") = e.DataRow("项目名称")
            ndr2("物资说明") = e.DataRow("物资说明")
            ndr2("单位") = "批"
            ndr2("领料数量") = "1"
            ndr2("领料日期") = Date.today           
        End If

    Case "领料情况_分机组"
        If e.newvalue = False Then
            DataTables("领料清单").DeleteFor("编号='" & e.DataRow("编号") & "'")
           
        ElseIf e.DataRow("物资说明") = "紧固件" Then
            Dim ndr1 As DataRow = DataTables("领料清单").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
            If ndr1 Is Nothing Then
                For i As Integer = 1 To 2
                    Dim ndr As DataRow = DataTables("领料清单").AddNew
                    ndr("编号") = e.DataRow("编号")
                    ndr("预算编号") = e.DataRow("预算编号")
                    ndr("物资说明") = e.DataRow("物资说明")
                    ndr("单位") = "批"
                    ndr("领料数量") = "0.5"
                    ndr("领料日期") = Date.today
                Next
            End If
        End If
       

Select Case e.DataCol.name
    Case "领料情况_分机组"
        If e.newvalue = False Then
            DataTables("领料清单").DeleteFor("编号='" & e.DataRow("编号") & "'")
        Else
            If e.DataRow("物资说明") = "原材料" Then
                For i As Integer = 1 To 2
                    Dim ndr As DataRow = DataTables("领料清单").AddNew
                    ndr("编号") = e.DataRow("编号")
                    ndr("预算编号") = e.DataRow("预算编号")
                    ndr("物资说明") = e.DataRow("物资说明")
                    ndr("名称") = e.DataRow("物资名称")
                    ndr("规格") = e.DataRow("规格")
                    ndr("材质") = e.DataRow("材质")
                    ndr("中标单位") = e.DataRow("中标情况_中标单位")
                    ndr("领料日期") = Date.today
                Next
            End If
            If e.DataRow("物资说明") = "紧固件" Then
                Dim ndr1 As DataRow = DataTables("领料清单").Find("预算编号 = '" & e.DataRow("预算编号") & "'")
                If ndr1 Is Nothing Then
                    For i As Integer = 1 To 2
                        Dim ndr As DataRow = DataTables("领料清单").AddNew
                        ndr("编号") = e.DataRow("编号")
                        ndr("预算编号") = e.DataRow("预算编号")
                        ndr("物资说明") = e.DataRow("物资说明")
                        ndr("单位") = "批"
                        ndr("领料数量") = "0.5"
                        ndr("领料日期") = Date.today
                    Next
                End If
            End If
        end if
end select