- 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=12887)
-- 发布时间：2011/9/19 15:32:00
-- 请问如何制作每月的进销存报表
[此贴子已经被作者于2011-9-19 15:34:24编辑过]
-- 发布时间：2011/9/19 15:38:00
--
可以的，先看两遍帮助。
然后设计好表格，输入测试数据，开始设计，遇到具体问题再提问。
-- 发布时间：2011/9/19 15:47:00
--
这个报表是生成的报表？还是设计每个月的报表再填进去？就是不知道这个月初库存怎么处理。教程是看了的，天天都在看。
-- 发布时间：2011/9/19 15:49:00
--
这个应该是生成的报表的。
月初库存很好计算的，你先看帮助，之后开始做，有了基本的表结构和数据，遇到具体问题再提问即可。
-- 发布时间：2011/9/20 11:10:00
--
如何在库存中显示是累计的值？
-- 发布时间：2011/9/20 11:10:00
--
-- 发布时间：2011/9/20 11:11:00
--
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("商品名称") \'根据型号分组
bd1.groups.adddef("日期","月")
bd1.Totals.AddDef("入库数量","入库_数量") \'对数量进行统计
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("商品名称") \'根据型号分组
bd2.groups.adddef("日期","月")
bd2.Totals.AddDef("出库数量","出库_数量") \'对数量进行统计
dt2 = bd2.BuildDataSource()
Dim nms As String() = {"商品名称","月"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'将销售统计数据组合到进货统计数据
Tables("窗口1_Table1").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("窗口1_Table1").DataCols \'用表达式列计算库存数据
.Add("库存_数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0)")
End With
-- 发布时间：2011/9/20 14:14:00
--
请狐狸爸爸看看，感觉这样有点浪费代码。
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("商品名称") \'根据型号分组
bd1.groups.adddef("日期","月")
bd1.Totals.AddDef("入库数量","入库_数量") \'对数量进行统计
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("商品名称") \'根据型号分组
bd2.groups.adddef("日期","月")
bd2.Totals.AddDef("出库数量","出库_数量") \'对数量进行统计
dt2 = bd2.BuildDataSource()
Dim nms As String() = {"商品名称","月"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'将销售统计数据组合到进货统计数据
Tables("窗口1_Table1").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("窗口1_Table1").DataCols \'用表达式列计算库存数据
.Add("月底库存_数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0)")
End With
Dim bd3 As New GroupTableBuilder("统计表3",DataTables("窗口1_Table1"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("商品名称") \'根据型号分组
bd3.groups.adddef("月")
bd3.Totals.AddDef("入库_数量")
bd3.Totals.AddDef("出库_数量")
bd3.Totals.AddDef("月底库存_数量",True) \'对数量进行统计
dt3 = bd3.BuildDataSource()
Tables("窗口1_Table1").DataSource = dt3
Tables("窗口1_Table1").sort = "月"
-- 发布时间：2011/9/20 14:27:00
--
有一个问题，就是如果一个商品还有库存，但是，在一个月里面没有入库也没有出库，就显示不出库存来。
-- 发布时间：2011/9/20 14:30:00
--
你应该以[年月]分组,不然:2010-7-1和2011-7-1的怎分?