专家坐堂-统计代码问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56667)

--  作者：yw8125
--  发布时间：2014/9/10 16:11:00
--  统计代码问题

学习的一个统计表，代码产生表金额和数量是分开的，怎样才能归类在一起，如协议订货：金额数量；新增订货：金额数量，等。请高手帮我修改代码。谢谢了！下面是代码：

Dim g As New CrossTableBuilder("统计表33", DataTables("新增订货"), "[新增合同] OR [当年协议转合同] OR [上年协议转合同] OR [新增协议] OR [上年协议]= TRUE")

g.Caption = "当年订货情况(外站)"

g.HGroups.AddDef("站名")

g.VGroups.AddDef("新增合同")

g.VGroups.AddDef("当年协议转合同")

g.VGroups.AddDef("上年协议转合同")

g.VGroups.AddDef("新增协议")

g.VGroups.AddDef("上年协议")

g.Totals.AddDef("不含税金额", "不含税金额(万元)")

g.Totals.AddDef("数量", "数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Filter = "[新增合同] OR [当年协议转合同] OR [上年协议转合同] OR [新增协议] OR [上年协议]= TRUE"

g.Build()

Tables("统计表33").Cols("不含税金额_1").Caption="不含税金额(万元)_上年协议"

Tables("统计表33").Cols("数量_1").Caption="数量_上年协议"

Tables("统计表33").Cols("不含税金额_2").Caption="不含税金额(万元)_新增协议"

Tables("统计表33").Cols("数量_2").Caption="数量_新增协议"

Tables("统计表33").Cols("不含税金额_3").Caption="不含税金额(万元)_上年协议转合同"

Tables("统计表33").Cols("数量_3").Caption="数量_上年协议转合同"

Tables("统计表33").Cols("不含税金额_4").Caption="不含税金额(万元)_当年协议转合同"

Tables("统计表33").Cols("数量_4").Caption="数量_当年协议转合同"

Tables("统计表33").Cols("不含税金额_5").Caption="不含税金额(万元)_新增合同"

Tables("统计表33").Cols("数量_5").Caption="数量_新增合同"

Tables("统计表33").DataTable.BuildHeader

MainTable = Tables("统计表33")

--  作者：Bin
--  发布时间：2014/9/10 16:12:00
--
例子发上来.

--  作者：狐狸爸爸
--  发布时间：2014/9/10 17:05:00
--

Dim g As New CrossTableBuilder("统计表33", DataTables("新增订货"), "[新增合同] OR [当年协议转合同] OR [上年协议转合同] OR [新增协议] OR [上年协议]= TRUE")

g.Caption = "当年订货情况(外站)"

g.HGroups.AddDef("站名")

g.VGroups.AddDef("新增合同")

g.VGroups.AddDef("当年协议转合同")

g.VGroups.AddDef("上年协议转合同")

g.VGroups.AddDef("新增协议")

g.VGroups.AddDef("上年协议")

g.Totals.AddDef("不含税金额", "不含税金额(万元)")

g.Totals.AddDef("数量", "数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.OrderByTotal = False   ‘改变这个值，可以得到不同的排列位置

g.Filter = "[新增合同] OR [当年协议转合同] OR [上年协议转合同] OR [新增协议] OR [上年协议]= TRUE"

g.Build()

Tables("统计表33").Cols("不含税金额_1").Caption="不含税金额(万元)_上年协议"

Tables("统计表33").Cols("数量_1").Caption="数量_上年协议"

Tables("统计表33").Cols("不含税金额_2").Caption="不含税金额(万元)_新增协议"

Tables("统计表33").Cols("数量_2").Caption="数量_新增协议"

Tables("统计表33").Cols("不含税金额_3").Caption="不含税金额(万元)_上年协议转合同"

Tables("统计表33").Cols("数量_3").Caption="数量_上年协议转合同"

Tables("统计表33").Cols("不含税金额_4").Caption="不含税金额(万元)_当年协议转合同"

Tables("统计表33").Cols("数量_4").Caption="数量_当年协议转合同"

Tables("统计表33").Cols("不含税金额_5").Caption="不含税金额(万元)_新增合同"

Tables("统计表33").Cols("数量_5").Caption="数量_新增合同"

Tables("统计表33").DataTable.BuildHeader

MainTable = Tables("统计表33")

[此贴子已经被作者于2014-9-10 17:07:46编辑过]

--  作者：yw8125
--  发布时间：2014/9/11 8:29:00
--
我是新手对代码不熟，请高手帮忙将代码改为生成B表格式，谢谢了！B表见附件
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:b.xls

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:b.xls

--  作者：有点甜
--  发布时间：2014/9/11 9:33:00
--
请做一个foxtable的例子发上来测试。