查询某个分组中多行字段值的拼接字串的方法

先收藏，后面再研究

access的SQL语法中没有自定义函数，也不能象SQL Server中一样用变量、游标、子查询等方法来灵活处理查询语句。 但是，在Access环境中，透过模块中的过程，可利用功能强大的VB语言，生成复杂需求的查询语句。 下面是本人今天在Access版块中的一个回复，以此例

access的SQL语法中没有自定义函数，也不能象SQL Server中一样用变量、游标、子查询等方法来灵活处理查询语句。

　　但是，在Access环境中，透过模块中的过程，可利用功能强大的VB语言，生成复杂需求的查询语句。

　　 下面是本人今天在Access版块中的一个回复，以此例子，简单说明Access依托VB所蕴含的强大功能。

　　网友提问：　　　

　　--------------------------------------------------------------------------------

　　 我在ACCESS里面的表如下：

　　 comname　　　name　　 sex

　　 1公司　　　　 小王　男　　

　　 1公司　　　　 小李　女　　

　　 2公司　　　　 小张　男　　

　　 我想将同公司的内容合在一起如：

　　comname　　 name　　　　　 sex 　　

　　1公司　　　 小王，小李　 男，女　　

　　2公司　　　 小张　　　　 男　　　　

　　请问我在ACCESS里面该如可操作？请问有什么好的方法去处理？？

　　--------------------------------------------------------------------------------

　　解答：

　　----------------------------------------------------------------------------------

　　在 access的模块中建立一个自定义函数：

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

　　建立查询：

SELECT T.comname, combstr("T","Name","comname",t.comname) AS CombName, combstr("T","ses","comname",t.comname) AS CombSex
FROM T
GROUP BY T.comname