Access中查詢某個分組中多行字段值的拼接字串的方法

access的SQL語法中沒有自定義函數(shù)，也不能象SQL Server中一樣用變量、游標、子查詢等方法來靈活處理查詢語句。
     但是，在Access環(huán)境中，透過模塊中的過程，可利用功能強大的VB語言，生成復雜需求的查詢語句。
     下面是本人今天在Access版塊中的一個回復，以此例子，簡單說明Access依托VB所蘊含的強大功能。
     網(wǎng)友提問：
    --------------------------------------------------------------------------------
     我在ACCESS里面的表如下：
     comname name sex
     1公司　 小王　男　　
     1公司　 小李　女　　
     2公司　 小張　男　　
     我想將同公司的內容合在一起如：
    comname name 　　　 sex 　　
    1公司　 小王，小李　 男，女　　
    2公司　 小張　　　　 男　　　　
    請問我在access里面該如可操作？請問有什么好的方法去處理？？
    --------------------------------------------------------------------------------
    解答：
    ----------------------------------------------------------------------------------
    在 access的模塊中建立一個自定義函數(shù)：
    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
    ----------------------------------------------------------------------------------------------------