ACCESS编程技巧 - Delphi

本文提示：《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
就行了

本页地址

收藏到：[收藏夹] [百度搜藏] [新浪ViVi] [POCO网摘] [ 和讯网摘] [好哦网摘] [Google书签]
[搜狐网摘] [365Key网摘] [天极网摘] [我摘] [博采网摘] [igooi网摘]