主题：如何做到库存实时更新

物料名称发生改变，进仓表中明明没有这个品种了，为什么盘点表中的数量还是没有发生变化，如何才能够做到进仓表物料名称发生改变了，盘点表中的数量也会发生变化。因为毕竟没有进仓了，为了实现这个功能，我写的这些代码，但是不知错在哪里，盘点表中的本月入库数量的统计反而不行了，请高手指点一下，谢谢。

Select Case e.DataCol.name
    Case "数量","单价"
        If e.DataRow.Isnull("数量") Then
            e.DataRow("金额") = Nothing
        Else
            e.DataRow("金额") = e.DataRow("单价") * e.DataRow("数量")
           
        End If
        If e.DataCol.Name = "存货名称" Then  '如果内容发生变动的是品名列
            If e.NewValue Is Nothing Then  '如果新值是空白,也就是品名列的内容为空
                e.DataRow("数量") = Nothing '那么清空此行单价列的内容
            Else
               
               
                Dim fdr As DataRow = DataTables("盘点表").Find("存货名称 ='" & e.DataRow("存货名称") & "'")
               
                If fdr IsNot Nothing Then
                    fdr("本月入库数量") = DataTables("进仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "'")
                End If
            End If
        End If
End Select