多维表如何转为一维表

kuiblue　发表于：2020-10-24 12:59:13 　

复制

老师们好！请教多维表如何转为一维表，详细如附件，谢谢！点击下载此附件

需处理的表：

怎么达到以下效果：

Top

金宇发表于：2020-10-24 13:09:59

使用SQL语句，既可以在vba代码中执行，也可以通过查询来执行

insert into 一维表(工作组,姓名,产品,值) select 工作组,姓名,'产品1数量',产品1数量 from 多维表

insert into 一维表(工作组,姓名,产品,值) select 工作组,姓名,'产品2数量',产品2数量 from 多维表

insert into 一维表(工作组,姓名,产品,值) select 工作组,姓名,'产品3数量',产品3数量 from 多维表

Top

kuiblue 发表于：2020-10-24 13:56:00

@金宇老师好！请问怎么套入VBA 或查询？我刚试了没成功，再次感谢！

Top

kuiblue 发表于：2020-10-24 16:11:59

老师已帮忙解决，谢谢！

UMVsoft--3号黄老师(2851379733) 15:08:00
currentdb.execute "insert into 一维表(工作组,姓名,产品,值) select 工作组,姓名,'产品1数量',产品1数量 from 多维表"
currentdb.execute "insert into 一维表(工作组,姓名,产品,值) select 工作组,姓名,'产品2数量',产品2数量 from 多维表"
currentdb.execute "insert into 一维表(工作组,姓名,产品,值) select 工作组,姓名,'产品3数量',产品3数量 from 多维表"
msgbox "执行完成！"

UMVsoft--3号黄老师(2851379733) 15:08:16
将上面的的代码放在某个按钮的点击事件中

Top

云峰发表于：2020-10-26 16:45:50

再加个汇总

CurrentDb.Execute "INSERT INTO 一维表(工作组,姓名,产品,值) SELECT 工作组,姓名, '产品1', Sum(产品1数量) FROM 多维表 GROUP BY 工作组, 姓名, '产品1'"
CurrentDb.Execute "INSERT INTO 一维表(工作组,姓名,产品,值) SELECT 工作组,姓名, '产品2', Sum(产品2数量) FROM 多维表 GROUP BY 工作组, 姓名, '产品2'"
CurrentDb.Execute "INSERT INTO 一维表(工作组,姓名,产品,值) SELECT 工作组,姓名, '产品3', Sum(产品3数量) FROM 多维表 GROUP BY 工作组, 姓名, '产品3'"
MsgBox "执行完成！"
End Sub

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

[5分]多维表如何转为一维表