主题：关于重置列

在写完代码后可以重置一次列。之后不应该再做任何重置列操作。

If e.DataCol.Name = "合同编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("技术勘察文件登记表").SQLFind("工程编号 = '" & e.DataRow("合同编号") & "'")
    If dr IsNot Nothing  Then'如果找到, 则设置各列内容
        e.DataRow("报告审批") = dr("审批")
        e.DataRow("报告LOG") = dr("Log")
    End If
End If
If e.DataCol.Name = "合同编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("技术地基检测物探登记表").SQLFind("工程编号 = '" & e.DataRow("合同编号") & "'")
    If dr IsNot Nothing Then'如果找到, 则设置各列内容
        e.DataRow("报告审批") = dr("审批")
        e.DataRow("报告LOG") = dr("Log")
    End If
End If
If e.DataCol.Name = "合同编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("技术监测测量登记表").SQLFind("工程编号 = '" & e.DataRow("合同编号") & "'")
    If dr IsNot Nothing Then'如果找到, 则设置各列内容
        e.DataRow("报告审批") = dr("审批")
        e.DataRow("报告LOG") = dr("Log")
    End If
End If
If e.DataCol.Name = "合同编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("技术地质勘查登记表").SQLFind("工程编号 = '" & e.DataRow("合同编号") & "'")
    If dr IsNot Nothing Then'如果找到, 则设置各列内容
        e.DataRow("报告审批") = dr("审批")
        e.DataRow("报告LOG") = dr("Log")
    End If
End If
If e.DataCol.Name = "合同编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("技术设计文件登记表").SQLFind("工程编号 = '" & e.DataRow("合同编号") & "'")
    If dr IsNot Nothing Then'如果找到, 则设置各列内容
        e.DataRow("报告审批") = dr("审批")
        e.DataRow("报告LOG") = dr("Log")
    End If
End If
If e.DataCol.Name = "合同编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("技术施工组织设计登记表").SQLFind("工程编号 = '" & e.DataRow("合同编号") & "'")
    If dr IsNot Nothing Then'如果找到, 则设置各列内容
        e.DataRow("报告审批") = dr("审批")
        e.DataRow("报告LOG") = dr("Log")
    End If
End If
If e.DataCol.Name = "合同编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("技术水环灾文件登记表").SQLFind("工程编号 = '" & e.DataRow("合同编号") & "'")
    If dr IsNot Nothing Then'如果找到, 则设置各列内容
        e.DataRow("报告审批") = dr("审批")
        e.DataRow("报告LOG") = dr("Log")
    End If
End If
If e.DataCol.Name = "合同编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("合同台帐2019").SQLFind("合同编号 = '" & e.DataRow("合同编号") & "'")
    If dr IsNot Nothing Then'如果找到, 则设置各列内容
        e.DataRow("施工状态") = dr("施工状态")
        e.DataRow("合同额") = dr("合同额")
        e.DataRow("签订合同") = dr("审批")
        e.DataRow("合同LOG") = dr("Log")
    End If
End If

这些代码都是哪个表的？

在其它表里写代码同步更新汇总表的数据，就不需要重置列了：http://www.foxtable.com/webhelp/topics/1453.htm