四时宝库

前面小编发表过关于设置排序顺序的方法。

这里又有新的办法通过组合框指定主要关键字和次要关键字来设置多个字段排序显示数据

Dim rs As New ADODB.Recordset

rs.Open "员工工资", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.Sort = txt主关键字 & " desc," & txt次关键字 '根据输入的关键字排序

Set Me.Recordset = rs '将排序后的记录集重新添加到窗口

Me.Requery

rs.Close

Set rs = Nothing

排序结果：