- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于交叉统计！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59564)
-- 发布时间：2014/11/6 15:52:00
-- [求助]关于交叉统计！
请问如何将附件中的进销存数据统计成库存表的样式呢？
其中出库列为逻辑列！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
用下面的代码只能统计,但是实现不了入库减去出库！
Dim g As New CrossTableBuilder("统计表1", DataTables("进销存数据"))
g.HGroups.AddDef("物资编号")
g.VGroups.AddDef("出库", "出库|入库")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
MainTable = Tables("统计表1")
[此贴子已经被作者于2014-11-6 15:53:30编辑过]
-- 发布时间：2014/11/6 15:54:00
--
请高手帖一下实现的代码，小弟学习一下
-- 发布时间：2014/11/6 16:01:00
--
Dim g As New CrossTableBuilder("统计表1", DataTables("进销存数据"))
g.HGroups.AddDef("物资编号")
g.VGroups.AddDef("出库", "出库|入库")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
DataTables("统计表1").DataCols.Add("库存量",Gettype(Integer), Tables("统计表1").Cols(1).name & "-" & Tables("统计表1").Cols(2).name )
MainTable = Tables("统计表1")
-- 发布时间：2014/11/6 16:06:00
--
哦，增加临时列啊！谢谢BIN
-- 发布时间：2014/11/6 16:08:00
--
问题是，如何能显示其他列呢？
-- 发布时间：2014/11/6 16:10:00
--
显示什么其他列?
-- 发布时间：2014/11/6 16:10:00
--
要显示什么列，就加入分组
g.HGroups.AddDef("物资编号")
-- 发布时间：2014/11/6 16:10:00
--
显示"品名项目","单位","产品描述"这三列啊！
-- 发布时间：2014/11/6 16:18:00
--
要显示什么列，就加入分组
g.HGroups.AddDef("物资编号")
g.HGroups.AddDef("品名项目")
g.HGroups.AddDef("单位")
g.HGroups.AddDef("产品描述")
-- 发布时间：2014/11/6 16:24:00
--
谢谢两位老师