主题：[求助]跨表数据填充。

有三张表：“采购清单库”，“配件消耗清单库”，“库存清单库”

 

“库存清单库”中有一个字段为“已使用数量”，这个数值想引用“配件消耗清单库”的“消耗数量”列的统计值，

 

代码如下：

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好长啊，就怕这么写是错误的。

e.DataRow("已使用数量") =  DataTables("配件消耗清单").Compute("Sum(消耗数量)", "配件名称 = '" &  e.DataRow("配件名称")  & "' And 型号 = '" &  e.DataRow("型号")  & "' And 生产厂家 = '" &  e.DataRow("生产厂家")  & "' And 采购日期 = '" &  e.DataRow("采购日期")  & "'")

功能好像还是实现不了，“已使用数量”还是空值

说明没有符合条件的数据.

e.DataRow("已使用数量") =  DataTables("配件消耗清单").Compute("Sum(消耗数量)", "配件名称 = '" &  e.DataRow("配件名称")  & "' And 型号 = '" &  e.DataRow("型号")  & "' And 生产厂家 = '" &  e.DataRow("生产厂家")  & "' And 采购日期 = #" &  e.DataRow("采购日期")  & "#")

看看是access数据库还是sql数据库 日期有个符号问题

是内部数据表，用红袍兄的代码好像也不行的。

 加入代码，截图看看

 

msgbox("配件名称 = '" &  e.DataRow("配件名称")  & "' And 型号 = '" &  e.DataRow("型号")  & "' And 生产厂家 = '" &  e.DataRow("生产厂家")  & "' And 采购日期 = #" &  e.DataRow("采购日期")  & "#")

加在什么位置？

此主题相关图片如下：无标题.jpg