入库表
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()