Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

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

kuiblue 等级: 普通会员▲ 积分:193 金币:0 来自:深圳Access交流中心 发表于:2020-10-24 12:59:13   已结帖
楼主

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


需处理的表:


怎么达到以下效果:

 

access培训  诚聘access开发人员

    kuiblue
      获得社区协助:请教问题(即发帖)53篇,其中获得解决的51篇;
      协助社区成员:协助他人(即回帖)8篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top

扫描下方工作人员的微信二维码加微信,邀您加入Access课堂微信群,进入一个技术交际圈:

网站工作人员微信

金宇 等级:版主★★★★★ 积分:5905 金币:12520 来自:江阴Access交流中心 发表于2020/10/24 13:09:59 最佳答案
1楼 得分: 5

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

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

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

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



    希望我的回答能解决了您的问题,或者所附上的这些信息对您有所帮助!如有任何疑问或需要进一步帮助,请您直接在本站发贴,我们非常乐意帮助您解决问题!
    如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,以方便大家对那些正在等待解决的帖子给予关注!
    金宇  [协助社区成员回帖724篇,其中【最佳答案】255篇;发布技术文章313篇。]
    Access软件网助教团队 
    http://www.umvsoft.com
    如果您没有注册这个论坛,请单击下面的链接进行注册,与我在论坛进行交流:
    http://www.accessoft.com/reg/reg.asp?userid=43
    本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。
kuiblue 等级:普通会员▲ 积分:193 金币:0 来自:深圳Access交流中心 发表于2020/10/24 13:56:00 
2楼 得分: 0
@金宇 老师好!请问怎么套入VBA 或查询?  我刚试了没成功,再次感谢!

    kuiblue
      获得社区协助:请教问题(即发帖)53篇,其中获得解决的51篇;
      协助社区成员:协助他人(即回帖)8篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
kuiblue 等级:普通会员▲ 积分:193 金币:0 来自:深圳Access交流中心 发表于2020/10/24 16:11:59 
3楼 得分: 0

 老师已帮忙解决,谢谢!

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
将上面的的代码放在某个按钮的点击事件中



    kuiblue
      获得社区协助:请教问题(即发帖)53篇,其中获得解决的51篇;
      协助社区成员:协助他人(即回帖)8篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
云峰 等级:普通会员 积分:0 金币:0 来自:无锡Access交流中心 发表于2020/10/26 16:45:50 
4楼 得分: 0

再加个汇总

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



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    云峰
      获得社区协助:请教问题(即发帖)1篇,其中获得解决的1篇;
      协助社区成员:协助他人(即回帖)3篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:4篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。