主题：[求助]

If e.DataRow.RowState = DataRowState.Added AndAlso e.DataRow.IsNull("销售单号") = False AndAlso e.DataRow.IsNull("货物名称") = False _

    AndAlso e.DataRow.IsNull("提货机型") = False AndAlso e.DataRow("数量") > 0 Then
    For i As Integer = 1 To e.DataRow("数量")
        Dim dr As DataRow = DataTables("销售货物条码明细").AddNew()
        For Each s As String In "销售单号|货物名称|提货机型".Split("|")
            dr(s) = e.DataRow(s)
            dr("数量") = 1
        Next
    Next
End If

跨表新增行的操作，最好用BeforeSaveDataRow

如果用DataColChanged，在修改相关列值的时候，会造成重复新增行。

我们的系统中，不随意删除，也不随意修改。

将原记录打上作废（撤销）标记，然后新建。

这样不容易出现数据错误，而且历史记录，有据可查。