我这个库存数量计算有点问题，入库表只加载当月的，之前月份的数据，库存表那里无法计算，代码应该怎样修改了，麻烦老师指导一下，谢谢
If e.DataCol.Name = "商品编号" Then
e.DataRow("入库_数量") = DataTables("入库表").Compute("Sum(数量)","[商品编号] = '" & e.NewValue & "'")
e.DataRow("出库_数量") = DataTables("出库表").Compute("Sum(数量)","[商品编号] = '" & e.NewValue & "'")
e.DataRow("期初库存") = DataTables("商品资料").Compute("Sum(期初库存)","[商品编号] = '" & e.NewValue & "'")
e.DataRow("入库_均价") = DataTables("入库表").Compute("sum(金额)","[商品编号] ='" & e.DataRow("商品编号") & "' and 金额 <> 0") / DataTables("入库表").Compute("sum(数量)","[商品编号] ='" & e.DataRow("商品编号") & "' and 数量 <> 0")
e.DataRow("出库_均价") = DataTables("出库表").Compute("sum(金额)","[商品编号] ='" & e.DataRow("商品编号") & "' and 金额 <> 0") / DataTables("出库表").Compute("sum(数量)","[商品编号] ='" & e.DataRow("商品编号") & "' and 数量 <> 0")
End If
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "入库_数量","出库_数量","期初库存"
e.DataRow.save
dr("库存_数量") = dr("期初库存") + dr("入库_数量") - dr("出库_数量")
dr.save()
If dr IsNot Nothing Then
DataTables("库存表").DataCols("商品编号").RaiseDataColChanged(dr)'
End If
End Select
加好友 
发短信
Post By：2020/3/26 11:14:00 [只看该作者]
