主题：引用（请版主看一下很急）

既然说不明白,你不如图示代替说话:

 

下面的图片是合同总览 里面的代码和结果是我想得到的不用改

 

 

下面的图片是完成情况  我想得到的结果就是 这个样的子，狐爸爸给我的代码我用了之后得出来的不是这个结果。我希望能得出来的是这样的结果。

 

 

真是不好意思让大家操心了 。

你的图片别人是看不到的，我10楼的代码应该可以的啊。

是可以的狐爸爸   只是得出来的结果只是不相同的材质   但是砖号没有分出来   我想要不相同的砖号也能体现

狐爸爸 你给我的代码  我用了之后 出现的结果是  把不一样的材质列区分开了   但是不一样的砖号没有区分出来  还是要烦劳您一下

改一下条件即可啊：

 

 

If e.DataCol.Name ="增加" Then
    Dim dr,dr1 As DataRow
    dr = e.DataRow
    If dr.isnull("计划号") Then
        MessageBox.Show("计划号不能为空!")
    Else
        Dim s As String = "计划号 = '" & dr("计划号") & "'and 材质 = '" &  dr("材质") & "'"
        dr1= DataTables("合同总览").find(s)
        If dr1 IsNot Nothing Then
            Dim val As Integer = dr("重量")
            If dr("增加") = False Then
                val = -val
            End If
            dr1("重量")+ = val
            dr1.Save()
        Else
            Dim Ls As String() = {"计划号","合同公司","订单号","材质","重量"}
            dr1 = DataTables("合同总览").AddNew()
            For Each s In Ls
                dr1(s) = dr(s)
            Next
            dr1("重量") = dr("重量")
            dr1.Save()
        End If
        dr.Save()
       
        If dr("增加") = True Then
            s = "计划号 = '" & dr("计划号") & "'and 材质 = '" &  dr("材质") & "' and 砖号 = '" & dr("砖号") & "'"
            dr1= DataTables("完成情况").find(s)
            If  dr1 Is Nothing  Then
                dr1 = DataTables("完成情况").Addnew
            End If
            Dim nms() As String = {"计划号","合同公司","订单号","材质","砖号"}
            For Each nm As String In nms
                dr1(nm) = dr(nm)
            Next
        End If
    End If
End If

If e.DataCol.Name ="增加" Then     Dim dr,dr1 As DataRow     dr = e.DataRow     If dr.isnull("计划号") Then         MessageBox.Show("计划号不能为空!")     Else         Dim s As String = "计划号 = '" & dr("计划号") & "'and 材质 = '" &  dr("材质") & "'"         dr1= DataTables("合同总览").find(s)         If dr1 IsNot Nothing Then             Dim val As Integer = dr("重量")             If dr("增加") = False Then                 val = -val             End If             dr1("重量")+ = val             dr1.Save()         Else             Dim Ls As String() = {"计划号","合同公司","订单号","材质","重量"}             dr1 = DataTables("合同总览").AddNew()             For Each s In Ls                 dr1(s) = dr(s)             Next             dr1("重量") = dr("重量")             dr1.Save()         End If         dr.Save()                  If dr("增加") = True Then             s = "计划号 = '" & dr("计划号") & "'and 材质 = '" &  dr("材质") & "' and 砖号 = '" & dr("砖号") & "'"             dr1= DataTables("完成情况").find(s)             If  dr1 Is Nothing  Then                 dr1 = DataTables("完成情况").Addnew             End If             Dim nms() As String = {"计划号","合同公司","订单号","材质","砖号"}             For Each nm As String In nms                 dr1(nm) = dr(nm)             Next         End If     End If End If 狐狸爸爸这个用红色标记下来的代码是在原料的代码中又添加的一个表，如果我在想添加一个和红色代码一样的表，如何添加去，我试了半天还是不行，我手法不行，还请狐狸爸爸看一下。

我的意思就是多加一组红色的代码在里面，呵呵请狐狸爸爸帮助一下， 谢谢您了

If dr("增加") = True Then
    s = "计划号 = '" & dr("计划号") & "'and 材质 = '" &  dr("材质") & "' and 砖号 = '" & dr("砖号") & "'"
    dr1= DataTables("完成情况").find(s)
    If  dr1 Is Nothing  Then
        dr1 = DataTables("完成情况").Addnew
    End If
    Dim nms() As String = {"计划号","合同公司","订单号","材质","砖号"}
    For Each nm As String In nms
        dr1(nm) = dr(nm)
    Next

 

    dr1= DataTables("另一个表").find(s)
    If  dr1 Is Nothing  Then
        dr1 = DataTables("完成情况").Addnew
    End If
    Dim nms() As String = {"计划号","合同公司","订单号","材质","砖号"}
    For Each nm As String In nms
        dr1(nm) = dr(nm)
    Next

End If

狐爸爸.您看一下,运行这个代码后会出现如图,是怎么回事