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

交叉统计时，如何结果保留小数点后两位四舍五入啊？ round2函数能套进去吗 b.Totals.AddExp("金额","数量 * 单价") '

[此贴子已经被作者于2021/12/3 11:04:09编辑过]

先生成统计表，再设置金额列格式：http://www.foxtable.com/webhelp/topics/1659.htm

1、拼两个交叉统计，如何让两个表的，竖向的分组列相同的放到一起啊？目前默认第2个统计表的结果放到了第一个统计表的右边。

2、第1和第2个统计表的竖向分组列的表头均显示为： 2021年4月 2021年10月……，并没有把求和的列名：“应缴税额” （第一个统计表）或“税额”（第2个统计表）显示出来。

即如何将最终的表头结果显示为：

2021年4月 2021年10月 …

应缴税额税额应缴税额税额

Dim dtx As DataTable

Dim b As New SQLCrossTableBuilder("统计表2","租赁项目结转明细表")

b.C

Dim dt1 As fxDataSource

b.AddTable("租赁项目结转明细表","合同编号","租赁合同结转情况表","合同编号") '添加统计表

b.HGroups.AddDef("{租赁合同结转情况表}.合同编号") '添加客户列用于水平分组

'b.HGroups.AddDef("客户名称") '添加客户列用于水平分组

b.VGroups.AddDef("年月") '添加产品列用于垂直分组,并设置了Pattern参数

b.Totals.AddExp("应缴税额","应结转租金金额/ 1.05*0.12")

dt1 = b.BuildDataSource()

Dim b2 As New SQLCrossTableBuilder("统计表3","房产税实缴明细表")

b2.C

'b2.AddTable("租赁合同fa piao明细表","合同编号","租赁合同结转情况表","合同编号")

Dim dt2 As fxDataSource

b2.HGroups.AddDef("合同编号") '根据产品ID分组

b2.VGroups.AddDef("应缴年月") '添加产品列用于垂直分组,并设置了Pattern参数

b2.Totals.Adddef("税额")

dt2 = b2.BuildDataSource()

dt1.Combine("合同编号",dt2,"合同编号")

dt1.Show("统计表2") '显示统计结果,必须有这一句

[此贴子已经被作者于2021/12/3 13:35:55编辑过]

生成报表后移动列：http://www.foxtable.com/webhelp/topics/0587.htm

或者考虑这样：http://www.foxtable.com/webhelp/topics/2307.htm，先使用sql合并2个表的数据

1、如果挪动列的话，表头的列的数量不固定，不知道要挪的数量啊

两个统计结果的，第一层表头的规律都是 2019年4月 2019年10月 2020年4月 2020年10月 ……（中间可能有缺少的年份），能否有其他方法将第一层表头相同的挪到一起啊？

2、涉及3张表，表A，表B和表C；表A 与表B和C 都是一对多的关系。

先统计表B，再统计表C，之后拼结果；B和C不能拼成一个表吧？

[此贴子已经被作者于2021/12/3 14:40:09编辑过]

1、没有其它方法。可以遍历所有列，根据列标题判断

2、只要有关联列，任何表都可以关联

统计表的列名是：

2010年4月 2012年10月 2014年4月 2014年10月 …… 2012年10月 2014年10月

指标指标指标指标 …… 金额金额

1、循环列名，输出结果是：指标_1，指标_2，指标_3,…… 而不是2010年4月_指标，2012年10月_指标……

For i As Integer=0 To Tables("统计表2").cols.count-1 Step 1

output.show(Tables("统计表2").cols(i).name)

2、用什么思路循环挪动后边表的列啊？

[此贴子已经被作者于2021/12/3 15:47:32编辑过]

For i As Integer=0 To Tables("统计表2").cols.count-1 Step 1

if Tables("统计表2").cols(i).caption like “*_指标” then

dim sr() as string = Tables("统计表2").cols(i).caption.solit("_")

For j As Integer=0 To Tables("统计表2").cols.count-1

if Tables("统计表2").cols(j).caption like sr() & “_*” then

Tables("统计表2").cols(j).move(Tables("统计表2").cols(i).index)

exit for

endif

感谢，明白了

[此贴子已经被作者于2021/12/3 18:08:40编辑过]

主题：SQLCrossTableBuilder后台交叉统计