求助分组问题

chenyingfengsx

怎么把表jindu实现附件中的表结果功能
jindu表
编号  序号  位置
a       1      镀铜
a       2      机加
a       3      镀铜
b       1a    机加
b       2b    机加
b       3      镀铜

结果表
编号    序号   位置
a       1.3     镀铜
a        2       机加
b       1a.2b  机加
b       3         镀铜
就是把编号和位置分组，然后序号按顺序排列好，请教如何实现呢？

chenyingfengsx

谢谢koutx问题解决！感谢！

koutx

建一空白查询，将下面红色Sql代码贴进去：
SELECT jindu.编号, jindu.位置, pl([编号],[位置]) AS 序号
FROM jindu
GROUP BY jindu.编号, jindu.位置;

照下面代码建一模块函数
Function pl(bh As String, wz As String) As String
Dim str As String
str = "SELECT jindu.* FROM jindu WHERE jindu.编号 = '" & bh & "' AND jindu.位置 = '" & wz & "'"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
pl = ""
rs.Open str, CurrentProject.Connection, adOpenStatic, adLockBatchOptimistic rs.MoveFirst
For j = 1 To rs.RecordCount
      If rs.Fields("编号") = bh And rs.Fields("位置") = wz Then
           pl = pl & rs.Fields("序号") & ","
      End If
      rs.MoveNext
Next
      pl = Left(pl, Len(pl) - 1)
End Function

查询效果如下图示：