今天分享一个我在网站学习到的 一直以来觉得超级实用的合并计算库存的代码，可以应用于我们库存打印，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
这个只是简单的合并，到时可以利用这个代码，可以变化出很多实用的库存合并， 希望给大家有所启发和帮助。
附 件:
access多行数据合并一行
