access連續(xù)窗體使用多個(gè)字段排序

為了閱讀方便，我們通常都需要對(duì)數(shù)據(jù)進(jìn)行排序。

在連續(xù)窗體中，access沒有自帶的排序功能。需要在程序中添加

    Dim keword1 As String
    Dim keword2 As String
    Dim strsql As String
    keyword1 = InputBox("請(qǐng)輸入主要關(guān)鍵字及排序方式" )
    keyword2 = InputBox("請(qǐng)輸入次要關(guān)鍵字及排序方式" )
    strsql = "select * from  員工工資 order by " & keyword1 &  "," & keyword2 & ";"
    Me.RecordSource = strsql
    Me.Requery