group by时能否显示其它字段的内容

pho

表内容如下：
    aa                   xm
120000087425 北方广告部
120000087426 北方广告部
120000087429 北方广告部
120000087483 北方广告部
120000087484 南方广告部
120000087485 南方广告部
120000087486 南方广告部
120000087592 光大科技有限公司
120000087606 光大科技有限公司
120000087608 光大科技有限公司

能否实现group by xm字段时，将所对应的aa字段内容全部取出来，达到下面的效果。
北方广告部             120000087425 120000087426 120000087429 120000087483
南方广告部             120000087484 120000087485 120000087486
光大科技有限公司  120000087592 120000087606 120000087608

zhengjialon

简单的查询是做不到的,要写自定义函数才能实现的,记得有过旧贴实现过.

pho

谢谢!

fan0217

给你写了个过程,假设你的表是表1,执行查询后的值写入表2.代码如下:


Sub MyQuery()
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim rec2 As New ADODB.Recordset
Dim rec3 As New ADODB.Recordset
Dim strSQL As String
Dim strText As String
Set conn = CurrentProject.Connection
conn.Execute "DELETE 表2.* FROM 表2;"       '清除原表的内容
strSQL = "SELECT DISTINCT 表1.xm FROM 表1;"
rec.Open strSQL, conn, adOpenKeyset, adLockPessimistic
Do While Not rec.EOF
    strSQL = "SELECT * FROM 表1 "
    strSQL = strSQL & "WHERE xm = '" & rec("xm") & "'"
    rec2.Open strSQL, conn, adOpenKeyset, adLockPessimistic
        strText = ""
        Do While Not rec2.EOF
            strText = strText & rec2("aa") & " "
            rec2.MoveNext
        Loop
        strSQL = "SELECT * FROM 表2;"
        rec3.Open strSQL, conn, adOpenKeyset, adLockPessimistic
            rec3.AddNew
                rec3("xm") = rec("xm")
                rec3("aa") = strText
            rec3.Update
        rec3.Close
    rec2.Close
    rec.MoveNext
Loop
rec.Close
Set rec = Nothing
Set rec2 = Nothing
Set rec3 = Nothing
Set conn = Nothing
End Sub

pho

谢谢!

andymark

我也做了一个