以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][求助]如何将各产品的最后库存筛选出来。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7309)
--  作者：xjtg
--  发布时间：2010/6/6 16:38:00
--  [求助][求助]如何将各产品的最后库存筛选出来。

流水帐列二：

          如何将各产品的最后库存筛选出来。在一张表上反映。



[此贴子已经被作者于2010-6-6 17:25:10编辑过]
--  作者：czy
--  发布时间：2010/6/6 22:29:00
--  

提问请到“专家坐堂”版块。

 

办法有很多的，以下例子以分组统计，然后再进行计算。

 

Dim g As New GroupTableBuilder("库存表", DataTables("例子二"))
g.Groups.AddDef("产品")
g.Totals.AddDef("库存")
g.Build()
Dim dt As DataTable = DataTables("例子二")
For Each dr As DataRow In DataTables("库存表").DataRows
    dr("库存") = dt.Compute("Sum(入库)","产品 = \'" & dr("产品") & "\'") - dt.Compute("Sum(出库)","产品 = \'" & dr("产品") & "\'")
Next