سرت بندی

[مهدی قربانی]

سلام
در تكميل روش پيشنهادي دوست خوبمون amirzazadeh اينم يك نمونه ديگه براي انجام سورت بوسيله كامند باتون :

Private Sub Command4_Click()

Me.OrderByOn = True

Me.OrderBy = "b desc"

End Sub

Private Sub Command5_Click()

Me.OrderByOn = True

Me.OrderBy = "b"

End Sub

و نمونه مرتبط :