access組合框指定字段排序數(shù)據(jù)

前面已經(jīng)發(fā)表過關(guān)于設(shè)置排序順序的方法。

這里又有新的辦法通過組合框指定主要關(guān)鍵字和次要關(guān)鍵字來設(shè)置多個(gè)字段排序顯示數(shù)據(jù)

    Dim rs As New ADODB.Recordset

    rs.Open "員工工資",  CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    rs.Sort = txt主關(guān)鍵字 & " desc," & txt次關(guān)鍵字   '根據(jù)輸入的關(guān)鍵字排序

    Set Me.Recordset = rs '將排序后的記錄集重新添加到窗口

    Me.Requery

    rs.Close

    Set rs = Nothing

排序結(jié)果