主题：如何跨表对下拉列表进统计

本月出库数量，是对出仓表里的老厂进行计算，新厂借用数量，是对出仓表里的新厂进行计算，如何实现实时更新和保存，我在

datacolchanged里的代码如下：

If e.DataRow("仓库")  = "老厂" Then
    Dim fdr As DataRow = DataTables("盘点表").Find("存货名称 = '" & e.DataRow("存货名称") & "'")
   
    If fdr IsNot Nothing Then
       
        fdr("本月出库数量") = DataTables("出仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "'")
    End If
Else
    e.DataRow("仓库")  = "新厂"
    Dim fdr As DataRow = DataTables("盘点表").Find("存货名称 = '" & e.DataRow("存货名称") & "'")
   
    If fdr IsNot Nothing Then
       
        fdr("新厂借用数量") = DataTables("出仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "'")
    End If
   
End If

但是不能实现实时更新，如图所示，如何能实现？谢谢