Access挑战Excel第二十七期：合并，又见合并

roych

关于合并数据，其实已经挑战过一次，不过，当时用的是联合查询。不过这次说的“合并”跟上一次是不一样的。先上图：原数据：

合并后：


这种合并在日常工作中还是很常见的，例如，一个用户购买了多个商品，配送时可能就需要根据已有现货的进行合并了。——当然，如果客户允许全部到货之后再一次性寄则不存在这个情况。

在access里大约只需4行代码就好了……好吧，代码，代码……

（Roy表示，已经感受到来自于某妖深深的鄙视了）


不过，Excel用户打算怎么解决这个问题呢？公式吗？别忘了，用户ID可是乱序的哦。

1. Function MergeData(ByVal strFieldName As String, ByVal lngID As Long) As String
   
2.     Dim rst As New ADODB.Recordset
   
3.     rst.Open "select " & strFieldName & " from 数据 where 用户ID=" & lngID, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
4.     MergeData = rst.GetString(RowDelimeter:=";")
   
5.     rst.Close
   
6. End Function

复制代码

PS：估计这几天某妖都不在，我能不能嘚瑟那么几天先呢？