类似于人有三急但找不到洗手间的那种急帖

xiaoyu528

大神们，帮忙一下，看附件，谢谢

急支糖浆

给你个参考吧。
在 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

504373

只能帮忙截个图：

只能帮忙截个图

504373

借用别人的例子：

问题
dq(地区) xm（姓名）
A 张三
A 李四
B 王五
B 王六
B 王七
C 王九

我想做一个视图转换成
dq xm
A 张三，李四
B 王五，王六，王七
C 王九

解决
在ACCESS模块里写函数
基本程序如下
Public Function return_sl(dq As String) As String 'dq为社区名称
Dim sr As String '声明一个整型变量
Set db = CurrentDb() '指定数据库为当前数据库
Set recname = db.OpenRecordset("select * from 表A where sqmc='" + dq + "'") '将对应地区“XM”表读入记录集
Set strname = recname![mjxm] '指定记录集“姓名字段”

Do Until recname.EOF
sr = sr + " " + strname
recname.MoveNext
Loop

return_sl = sr
recname.Close
End Function

然后在SELECT语句直接调用
select dq,return_sl(dq) as xm from 表A GROUP BY DQ
就行了