リストボックスを並べ替えるRow-sourceを変更せずに条件付きで

Question

リストボックスにlstABCという3つの列A、b & cがある場合は、 そして、3つのソートボタン、btnSortA、btnSortB、btnSortCがあります。 lstABC.rowsourceを毎回変更せずにlstABCをソートできるボタンでon_clickイベントを使用する方法はありますか？

私は、この行で何かを達成しようとしていた：私は、SQL文字列と（すべてのボタンの）セット/再クエリlstABC.rowsource =文字列を構築することができ

Private sub btnSortA_Click() 
lstABC.Orderby = "ColumnA ASC" 
me.lstABC.OrderByOn = True 
End Sub 

は確かに、しかし、私は何かを探しています単純で効率的なものであり、過度の複雑さを伴わないものです。ありがとう

Answer 1

私の意見では、行のソースを変更するよりも簡単にすることはできません。また、リストボックス内のすべての行を読み、.addItemと右の順序ですべての行を再挿入...

Private Sub sortListbox(criteria As String) 
    Dim strSQL As String 

    strSQL = "SELECT A,B,C FROM TableName" _ 
    & " ORDER BY " & criteria 

    Me.yourListboxController.RowSource = strSQL 
    Me.yourListboxController.Requery 
End Sub 

そして、あなただけのクリックイベントに追加することができます。

Private Sub btnSortA_Click() 
    Call sortListbox("A") 
End Sub 

Private Sub btnSortB_Click() 
    Call sortListbox("B") 
End Sub 

Private Sub btnSortC_Click() 
    Call sortListbox("C") 
End Sub 

私は考えていませんそれより簡単にすることができます。