[5分]在查询中实现纵向合并字符串

不知为啥无法上传附件，给你个关键的代码，其他你应该自己会弄吧。

Public Function CombStr(TableName As String, FieldName As String, GroupField As String, GroupValue As String) As String
    Dim ResultStr As String
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(" select " & FieldName & " from " & TableName & " where " & GroupField & "='" & GroupValue & "'")
    If rs.RecordCount > 0 Then
    Do While Not rs.EOF
        ResultStr = ResultStr & "   " & rs.Fields(0).Value
        rs.MoveNext
    Loop
    End If
    If ResultStr <> "" Then ResultStr = Mid(ResultStr, 2)
    CombStr = ResultStr
   
End Function