主题：期初和库存非关联表之间的数据同步

非关联表之间的数据同步
1、将期初库存表的

DataColChanged事件代码设置为：
Select Case e.DataCol.name
    Case "物资编号"
        Dim dr As DataRow = DataTables("库存明细表").Find("物资编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("库存明细表").AddNew()
            dr("物资编号") = e.DataRow("物资编号")
            dr("货物名称") = e.DataRow("货物名称")
            dr("规格型号") = e.DataRow("规格型号")
            dr("库存重量") = e.DataRow("期初重量")
        Else
            dr("物资编号") = e.DataRow("物资编号")
        End If
    Case "货物名称","规格型号","库存重量"
        Dim dr As DataRow = DataTables("库存明细表").Find("物资编号 = '" & e.DataRow("物资编号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

2、将期初库存表的

DataRowDeleting事件代码设置为：

Dim dr As DataRow = DataTables("库存明细表").Find("物资编号 = '" & e.DataRow("物资编号") & "'")
If dr IsNot Nothing Then
    dr.Delete()
End If
显示库存重量为0  还要加计算方法吗?