主题：库存表数据求代码

参考代码

Select Case e.DataCol.name
    Case "产品编号","调账数量"
        Dim d As Date = Date.Today
        d = d.AddDays(-1)
        d = new Date(d.Year, d.Month, 1)
        Dim sum1 As Double = DataTables("入库表").Compute("sum(入库数量)", "产品编号 = '" & e.DataRow("产品编号") & "' and 入库日期 >= #" & d & "# and 入库日期 < #" & d.AddMonths(1) & "#")
        Dim sum2 As Double = DataTables("出库表").Compute("sum(出库数量)", "产品编号 = '" & e.DataRow("产品编号") & "' and 出库日期 >= #" & d & "# and 出库日期 < #" & d.AddMonths(1) & "#")
        e.DataRow("上月总出库") = sum2
        e.DataRow("上月总入库") = sum1
End Select

改一下

Select Case e.DataCol.name
    Case "产品编号","调账数量"
        Dim d As Date = Date.Today
        d = d.AddMonths(-1)
        d = new Date(d.Year, d.Month, 1)
        Dim sum1 As Double = DataTables("入库表").Compute("sum(入库数量)", "产品编号 = '" & e.DataRow("产品编号") & "' and 入库日期 >= #" & d & "# and 入库日期 < #" & d.AddMonths(1) & "#")
        Dim sum2 As Double = DataTables("出库表").Compute("sum(出库数量)", "产品编号 = '" & e.DataRow("产品编号") & "' and 出库日期 >= #" & d & "# and 出库日期 < #" & d.AddMonths(1) & "#")
        e.DataRow("上月总出库") = sum2
        e.DataRow("上月总入库") = sum1
End Select

表达式这样写

IsNull(Sum(Child(库存表领料明细).出库数量),0) + IsNull(Sum(Child(库存表销售明细).销售数量),0)