入库表
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 IfEnd If
DataTables("库存表").Save()