用逗号隔开的数据matlab,Access多行数据合并成一行（同列多行数据合并成一行）数据用逗号隔开...

'用途,将同客户合同号同样的模具号 的不同颜色合并到一个字段里

合并前的数据

'客合同  款号  颜色  数量

'A       9001  黑色  100

'A       9001  白色  200

'A       9001  红色  300

'

'

'不用ADO 或DAO  ,用查询，大家有什么比较好的办法 显示为：

'

合并后的效果

'客合同号  款号  颜色                   数量

'A         9001  黑色,白色,红色         600

合并前查询截图：

合并后截图：

完整源代码如下：

Private Sub cmdCombineColor_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 qry客户合同款号颜色汇总