有三张表:“采购清单库”,“配件消耗清单库”,“库存清单库”
“库存清单库”中有一个字段为“已使用数量”,这个数值想引用“配件消耗清单库”的“消耗数量”列的统计值,
代码如下:
If e.DataCol.name = "配件名称"
If e.DataRow("配件名称") IsNot Nothing
e.DataRow("已使用数量") = DataTables("配件消耗清单").Compute("Sum(消耗数量)", "配件名称 = '" & e.DataRow("配件名称") &"'" And "型号 = '" & e.DataRow("型号") &"'" And "生产厂家 = '" & e.DataRow("生产厂家") &"'" And "采购日期 = '" & e.DataRow("采购日期") &"'")
End If
End If
红字区域的代码好像有问题,也就是这个filter是有问题,请大师修改!
之所以这么长,是因为某一次采购的配件很多,而又是分很多次使用的,而同一种配件又有可能来自不同的生产商,所以这个filter好长啊,就怕这么写是错误的。