主题：关于重置列

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