以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]库存计算  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146138)

--  作者:江南小镇
--  发布时间:2020/2/17 15:31:00
--  [求助]库存计算
老师,下面代码想增加一个条件(规格)参与统计。





Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("入库明细")
If e.DataCol.Name = "商品名称" Then
    dr("入库_数量") = dt.Compute("Sum(入库_数量)","[商品名称] = \'" & dr("商品名称") & "\'")
    dr("入库_金额") = dt.Compute("Sum(合计金额)","[商品名称] = \'" & dr("商品名称") & "\'")


--  作者:有点蓝
--  发布时间:2020/2/17 15:55:00
--  
参考:http://www.foxtable.com/webhelp/topics/1284.htm