Access多行数据合并成一行（同列多行数据合并成一行）颜色数据用逗号或者_隔开

来源:http://www.office-cn.net/access-vb/209.html 点击数:21561 　 | 收藏 | 复制

时　间: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

这个只是简单的合并，到时可以利用这个代码，可以变化出很多实用的库存合并，希望给大家有所启发和帮助。

附件:

access多行数据合并一行