主题：根据某表中数据的比例，自动在另表自动计算

麻烦老师帮忙解决一下！

描述：产品仓库占比这个表【A】，里面有产品在各个仓库所需要占的比例（即购进一批产品后根据比例分发到各个仓库）；另有一个分发产品表【B】，在【B】填上数据（第一到第五列为手工填上）后，如何按照【A】里面的比例，自动在【B】中根据数量列的数量自动计算出“第1号仓库”和“第2号仓库”数量。

此主题相关图片如下：占比表.jpg


此主题相关图片如下：分发产品.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:列子.zip

再发一张图片

此主题相关图片如下：分发产品11.jpg

DataColChanged事件

If e.DataCol.name = "数量" Then
    Dim fdr As DataRow = DataTables("产品仓库占比").find("编码 = '" & e.DataRow("编号") & "'")
    If fdr Is Nothing Then
        e.DataRow("第1号仓库") = Nothing
        e.DataRow("第2号仓库") = Nothing
    Else
        e.DataRow("第1号仓库") = fdr("第1号仓库占比") * e.DataRow("数量")
        e.DataRow("第2号仓库") = fdr("第2号仓库占比") * e.DataRow("数量")
    End If
End If