向各位大侠请教，这个列表如何实现

开门芝麻

序号   代码   简称

1         B       菠菜

2         B       白菜

3         B       菠萝

如何能变成

代码               简称

B            菠菜，白菜，菠萝

xsbnxbq

我也正想要问这个问题呢

开门芝麻

唉，怎么无人应答呢，自己顶一下吧！

wwwwa

SQL+函数解决

andymark

Dim Rs As New ADODB.Recordset
Dim Rst As New ADODB.Recordset
Dim Str As String

  Rst.Open "SELECT First(代码) FROM 表1 GROUP BY 代码", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
  
  Do While Not Rst.EOF

        Rs.Open "select * from 表1 where 代码='" & Rst.Fields(0) & "'", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

     Do While Not Rs.EOF
        Str = Str & Rs.Fields("简称") & ","
        Rs.MoveNext
     Loop
   
     MsgBox Str
     
    Set Rs = Nothing
   
    Rst.MoveNext
  
  Loop
  
  Set Rst = Nothing
   

开门芝麻

谢谢WWWWA和ANDYMARK！