主题：[求助]入库新增加产品

入库表新增加产品，产品名称和单价自动添加库存表中，这个如何实现？

入库表

BeforeSaveDataRow

If e.DataRow.RowState = DataRowState.Added Then
    If e.DataRow.IsNull("产品名称") = False AndAlso e.DataRow.IsNull("单价") = False Then
        Dim dr As DataRow = DataTables("库存表").AddNew()
        dr("产品名称") = e.DataRow("产品名称")
        dr("单价") = e.DataRow("单价")
    End If
End If

DataTables("库存表").Save()