字段值拼接

508

我在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

按照网上提供的方法，提示‘combstr’函数未定义。求助，，，，，，

508

marco 发表于 2012-3-23 09:51
模块改名，与函数不同名即可。

ths！！！！！！！！！！！！！！！

marco

模块改名，与函数不同名即可。

508

太晚了？没人解救一下？？{:soso_e105:}