[access查询]将列相同类型的数据用行显示

时　间:2003-08-08 00:00:00
作　者:竹笛   ID：8  城市：上海  QQ：3059255
摘　要:将列相同类型的数据用行显示
正　文:

问题
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
就行了

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店