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