為了閱讀方便,我們通常都需要對數(shù)據(jù)進(jìn)行排序。
在連續(xù)窗體中,access沒有自帶的排序功能。需要在程序中添加
? ? Dim keword1 As String
? ? Dim keword2 As String
? ? Dim strsql As String
? ? '獲取排序的關(guān)鍵字
? ? keyword1 = InputBox("請輸入主要關(guān)鍵字及排序方式" )
? ? keyword2 = InputBox("請輸入次要關(guān)鍵字及排序方式" )
? ? strsql = "select * from ?員工工資 order by " & keyword1 ?& "," & keyword2 & ";"
? ? Me.RecordSource = strsql
? ? Me.Requery
