非关联表之间的数据同步
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  还要加计算方法吗?

.NET Framework 版本：4.0.30319.1
Foxtable 版本：2020.5.29.8
错误所在事件：表，期初库存，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Column \'期初重量\' does not belong to table 库存明细表.

改了运行出错

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