ACCESS编程技巧

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