以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据“存栏表”得出报表“在库统计表”  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54301)
--  作者：卷小毛
--  发布时间：2014/7/25 11:40:00
--  根据“存栏表”得出报表“在库统计表”

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:5月份存栏表.xls

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:5月份在库统计表.xls

 

 

在Foxtable，有一个 “存栏表”（类似附件  5月份存栏表），

 

怎样得出  excel统计报表 “在库统计表” （见附件5月份在库统计表），

 

各位大神，请指导，谢谢
--  作者：Bin
--  发布时间：2014/7/25 11:41:00
--  
狐表文件发上来
--  作者：卷小毛
--  发布时间：2014/7/25 14:54:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:个体信息表.table

 

个体信息表 是这个， 每个月都要 统计报表 附件的“5月份在库统计表”

 

怎么制作
--  作者：Bin
--  发布时间：2014/7/25 14:58:00
--  
没看到有存栏表啊
--  作者：有点甜
--  发布时间：2014/7/25 15:00:00
--  

 不是直接设置交叉统计即可？

 

Dim g As New CrossTableBuilder("统计表1", DataTables("个体信息表"))
g.HGroups.AddDef("栋号")
g.HGroups.AddDef("性别")
g.VGroups.AddDef("笼号")
g.Totals.AddDef("动物编号", AggregateEnum.Count, "动物编号")
g.Totals.AddDef("种源", AggregateEnum.Count, "种源")
g.Totals.AddDef("BV", AggregateEnum.Count, "BV")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
MainTable = Tables("统计表1")
--  作者：有点甜
--  发布时间：2014/7/25 15:00:00
--  

http://www.foxtable.com/help/topics/0165.htm

 
--  作者：卷小毛
--  发布时间：2014/7/25 16:30:00
--  
个体信息表 就是存栏表