我的问题是：

   前提：现在表中《合同总览》，《合同信息》里面的公式是这样子的：合同信息为主输入口，我把相应的内容输入进去后，而后单击增加选项，会在《合同总览》里面显示相应的内容，而后对相同前提下对“重量”进行相加。

   开发问题：  当我想开发第三个表《完成情况》时我想在第三个表里面得到《合同信息》里面内容，就是《完成情况》里面的内容与《合同信息》里的内容是一样的，为什么一样我是想在往后的开发中在完成情况里面加更多的内容， 我只想得到的就是  当把《合同信息》里的复选号打上对号后，发生二种结果，第一个结果就是执行原代码，而后在执行我想开发的《完成情况》的要求， 不知道这样的代码如何实现请版主们帮帮我 我很急。谢谢您们了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:引用.table

合同信息里面输入信息后   打勾之后  合同完成里面就相应的出现合同信息里面的内容   和合同总览是一样性质的   只是不像合同总览里的需要总计

狐爸爸  帮助

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()

        dr1= DataTables("完成情况").find(s)
        If dr("增加") = True AndAlso dr1 Is Nothing  Then
            dr1 = DataTables("完成情况").Addnew
            For Each dc As DataCol In DataTables("完成情况").DataCols
                dr1(dc.name) = dr(dc.name)
            Next
            dr1.Save
        ElseIf dr("增加") = False AndAlso dr1 IsNot Nothing  Then
            dr1.Delete
            dr1.save
        End If
    End If
End If

惭愧，我真的不明白你的意思，大家明白了吗？

合同信里面的列内容  我以后还会加上很多   完成情况的列内容我也会加上很多   我只想得到的就是  在完成情况里面 固定几个内容   当合同信息里面打上对号后   在完成情况里面显示 相应的列内容  我合同信息里面有  合同公司   计划号  订单号 材质  砖号  重量 生产日期等等   打上对号后  在合同完成里面  显示  我想需要显示的内容  如  我想显示 合同公司 计划号 订单号 材质  砖号   但是不显示重量 也不需要合计  实际上是和合同总览的性质是一样的  只不是不需要 对重量进行合计