Access多行数据合并成一行(同列多行数据合并成一行)颜色数据用逗号或者_隔开
时 间:2018-03-02 04:37:07
作 者:leo ID:43273 城市:罗马
摘 要:压箱底的库存代码分享哈哈,在office中国网学习到的,一直以来觉得超级实用的合并计算 库存,可以应用于我们库存打印,Access多行数据合并成一行 ,同一型号,不同颜色的录入,最终把它合并,唯一型号显示
正 文:
今天分享一个我在网站学习到的 一直以来觉得超级实用的合并计算库存的代码,可以应用于我们库存打印,Access多行数据合并成一行
同一型号,不同颜色的录入 ,最终把它合并 ,唯一型号显示
原来的表格是这样的
tbl库存_查询
分类名称 | 品名规格 | 颜色 | 入库箱 |
---|---|---|---|
18春 | A | 黑色 | 10 |
18春 | A | 白色 | 5 |
18春 | A | 米色 | 2 |
18春 | B | 黑色 | 4 |
17冬 | C | 红色 | 3 |
17冬 | C | 灰色 | 3 |
16春 | D | 米色 | 5 |
16春 | D | 红色 | 2 |
18春 | E | 黄色 | 4 |
18春 | E | 蓝色 | 3 |
18春 | E | 紫色 | 5 |
18春 | F | 红色 | 6 |
18春 | F | 白色 | 3 |
经过代码后变成这样
tbl库存
分类名称 | 品名规格 | 颜色 | 入库箱 |
---|---|---|---|
16春 | D | 红色-米色 | 7 |
17冬 | C | 灰色-红色 | 6 |
18春 | A | 米色-白色-黑色 | 17 |
18春 | B | 黑色 | 4 |
18春 | E | 紫色-蓝色-黄色 | 12 |
18春 | F | 白色-红色 | 9 |
需要引用 ADO 或DAO 和查询
完整源代码如下:
Private Sub tbl库存_Click()
'去重复品名规格 合并
'去重复品名规格 合并
Dim Rs As New ADODB.Recordset
Dim Rsdes As New ADODB.Recordset
Dim strKeyNo As String
Dim strStyleNo As String
CurrentDb.Execute "delete * from tbl库存 "
Rsdes.Open "select * from tbl库存", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.Open "select * from 3qry库存", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not Rs.EOF
'如果同样的分类名称 同样的品名规格 ,则单位合并在一起
If strKeyNo = Rs("品名规格") Then
Rsdes("分类名称") = Rs("分类名称")
Rsdes("品名规格") = Rs("品名规格")
Rsdes("颜色") = Rsdes("颜色") & "-" & Rs("颜色")
Rsdes("入库箱") = Nz(Rsdes("入库箱"), 0) + Nz(Rs("入库箱"), 0)
'
Else
'新分类名称新的品名规格,则创建一条新的记录
strKeyNo = Rs("品名规格")
Rsdes.AddNew
Rsdes("分类名称") = Rs("分类名称")
Rsdes("品名规格") = Rs("品名规格")
Rsdes("颜色") = Rs("颜色")
Rsdes("入库箱") = Nz(Rs("入库箱"), 0)
End If
Rsdes.Update
Rs.MoveNext
Loop
Rs.Close
Rsdes.Close
DoCmd.OpenTable "tbl库存", , acReadOnly
End Sub
Dim Rsdes As New ADODB.Recordset
Dim strKeyNo As String
Dim strStyleNo As String
CurrentDb.Execute "delete * from tbl库存 "
Rsdes.Open "select * from tbl库存", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.Open "select * from 3qry库存", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not Rs.EOF
'如果同样的分类名称 同样的品名规格 ,则单位合并在一起
If strKeyNo = Rs("品名规格") Then
Rsdes("分类名称") = Rs("分类名称")
Rsdes("品名规格") = Rs("品名规格")
Rsdes("颜色") = Rsdes("颜色") & "-" & Rs("颜色")
Rsdes("入库箱") = Nz(Rsdes("入库箱"), 0) + Nz(Rs("入库箱"), 0)
'
Else
'新分类名称新的品名规格,则创建一条新的记录
strKeyNo = Rs("品名规格")
Rsdes.AddNew
Rsdes("分类名称") = Rs("分类名称")
Rsdes("品名规格") = Rs("品名规格")
Rsdes("颜色") = Rs("颜色")
Rsdes("入库箱") = Nz(Rs("入库箱"), 0)
End If
Rsdes.Update
Rs.MoveNext
Loop
Rs.Close
Rsdes.Close
DoCmd.OpenTable "tbl库存", , acReadOnly
End Sub
这个只是简单的合并,到时可以利用这个代码,可以变化出很多实用的库存合并, 希望给大家有所启发和帮助。
附 件:
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)