真棒!根据实际需要改为:
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