主题：又一个问题，我怎么动态不过去呢？

此主题相关图片如下：出库登记表.png

Dim cg As DataRow  = e.DataRow
Select Case e.DataCol.name
    Case "出库数量","B价","B合","产品名称","产品编号"
        Dim filter As String
        filter = "产品编号 = '" & cg("产品编号") & " ' And 产品名称 = '" & cg("产品名称") & "'"
        Dim pr As DataRow
        pr = DataTables("库存明细2014年").find (filter)
        If pr IsNot Nothing Then
            Dim su As Double = Tables("出库登记表").compute("Sum(出库数量)","[产品编号] = '" & pr ("编号") & "' And [产品名称] = '" & pr("产品名称") & "'")
            pr("入库产品已出库数KG") = su
            cg("B价")= pr("A价")
            cg("厂家")= pr("厂家")
            cg("B合") = cg("出库数量") * cg("B价")
        End If
End Select

 

此主题相关图片如下：库存明细2014年.png

 请老师帮我看看，“出库登记表”动态不到“库存明细2014年”去，不知哪儿不对了。。。

我想通过（出库登记表）输入“产品编号”和“产品名称”后，自动向表（库存明细2014年）取值“B价”和“厂家”的对应值。同时表（库存明细2014年）自动动态合计相同“产品编号”和“产品名称”的“入库产品已出库数KG”。

还在啃你给的代码。。。。。

此主题相关图片如下：丢失.png

显示数据丢失，但想想没丢失呀？