请教如何得到以下查询结果

要直接写SQL来得到你要的结果应该是不可以的, 变通的办法就是写一个自定义函数, 比如

Public Function getperson(strItemNO As String) As String

    dim sql As String

    dim str As String
    Dim rs As Recordset
    sql = "select distinct 分配人 from sql_source where 项目号 = '" & strItemNO & "'"
    Set rs = CodeDb.OpenRecordset(sql)
    rs.MoveFirst
    Do Until rs.EOF
        str = str + rs(0) + ","
        rs.MoveNext
    loop    
    getperson = Left(str, Len(str) - 1)
End Function

然后在查询里面添加这个自定义函数,比如:

SELECT 项目号, getperson(项目号)
FROM 表
GROUP BY 项目号