[求助]多表交叉统计动态添加项 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

设计了一个“SQLCrossTableBuilder”多表交叉统计的窗口，部分代码不会写，请大师在有空的时候帮助看看：

1、“添加分析表”复选框来自所有数据表的表名列表；

“垂直分组列”、“水平分组列”、“数据分析列”来自“表列管理” 表中的[列名]；

“统计条件”来自文本框右侧的筛选按钮；

2、不会写“记住条件”的代码；

3、“统计”按钮的代码只写了固定统计代码，不会写动态添加表或列字段代码；

请大师指教！谢谢！

此主题相关图片如下：image 1.jpg

附件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多表统计-例子.table

谢谢老师！我按照你写的代码重新修改了一下，但是运行提示“jion错误”。另外我新建了一个“操作日志”的表，但“记住条件”的代码没起作用。请老师抽空再给看看。

此主题相关图片如下：33.jpg

附件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多表统计-例子.table

放入命令窗口执行没错呀：

Dim b As New SQLCrossTableBuilder("统计表1","分析数据")

b.AddTable("分析数据","公历年月日","数据之上海1","时间") '添加统计表

b.AddTable("分析数据","公历年月日","数据之上海2","时间") '添加统计表

b.AddTable("分析数据","公历年月日","数据之上海3","时间") '添加统计表

b.AddTable("分析数据","公历年月日","数据之上海4","时间") '添加统计表

b.AddTable("分析数据","公历年月日","数据之上海5","时间") '添加统计表

b.HGroups.AddDef("农历年份") '添加列用于垂直分组

b.HGroups.AddDef("阳历月份") '添加列用于垂直分组

b.VGroups.AddDef("农历月") '添加列用于水平分组

b.Totals.AddDef("SH000001上证指数") '添加列用于统计

'b.Filter = Forms("筛选窗口").Controls("TextBox1").Text

b.Subtotal = True '生成汇总模式

b.Build '生成统计表

MainTable = Tables("统计表1") '打开生成的统计表

'Tables("统计_Table1").DataSource= b.BuildDataSource '统计表放入指定窗口表

主题：[求助]多表交叉统计 动态添加项