Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

将查询中的字段设置为排序依据(1)

时 间:2016-10-11 08:20:10
作 者:杨雪   ID:42182  城市:南京
摘 要:用sort属性来排序
正 文:


如果需要在DAO中将绑定窗体中的记录排序,可以使用Sort 属性来进行,其方法与OrderBy 属性的使用方法基本相同,其具体的语法格式:

          [记录集].Sort ="[排序字段名]"

 

DAO Sort 属性可以在“DynaSetType”或“SnapShotType Recordset 对象中使用,所以打开记录集应该设置为这两种类型之一。

只设置Sort 属性,不能够实现对记录的排序。需要先执行Recordset 属性的OpenRecordset方法,重新设置已经排序的Recordset,然后将排序后的Recordset对象设置到窗体的RecordSet 中。

Set  [排序后的记录集]=[排序后的记录集].OpenRecordset

               set  me.Recordset=[排序后的记录集]

 

将当前窗体的记录集设置为排序后的记录集后,还需要使用Requery 方法重绘窗体,其具体语法为:

                    me.Requery


截   图:

排序前:


排序后:


源   码:

'通过DAO方法根据窗体的数据来源查询
'实现对窗体中的记录按照姓名实现排序的目的
Private Sub cmd_排序_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    '根据当前打开的数据库中的“Q_学生基本信息”查询来取得记录集Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Q_学生基本信息", dbOpenDynaset)
    '根据姓名排序
     rs.Sort = "姓名"
    '再次取得记录集Recordset
    Set rs = rs.OpenRecordset
    '设置窗体中的记录集Recordset,重新绘制窗体
    Set Me.Recordset = rs
    Me.Requery
    '释放记录集Recordset和数据库
    Set rs = Nothing
    Set db = Nothing
End Sub


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

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助