主题：求助，如果一个表某列增加了值那么另外一个表自动增加一行并增加相应值？

真棒!根据实际需要改为:

If e.DataRow("审核") =True AndAlso e.DataRow("复核") =True   Then
        Dim dr As DataRow = DataTables("执行").AddNew()
        dr("批次") = e.DataRow("批次")
        dr("板料编码") = e.DataRow("板料编码")
        dr("条料规格") = e.DataRow("条料规格")
        dr("零件名称") = e.DataRow("零件名称")
        dr("零件图号") = e.DataRow("零件图号")
        dr("件_张") = e.DataRow("件_张")
        dr("下料_张") = e.DataRow("实际张")

    End If