おやじプログラマー日記 : VB.NET：Spreadデータ一覧表示での自動ソート実行時に複数のソート条件を指定する方法について

SPREADを使ってデータの一覧を表示し、ソート処理を追加するのは比較的簡単に行えます。

アクティブシートの設定で各カラムの「AllowAutoSort」プロパティを「True」にすればソートが可能になります。以下のソースを動作させた最初の表示が以下の図になります。

各カラムのヘッダにソートのインジケータが表示されるので、そのマークをクリックすることで自動でソート処理がなされます。

Imports FarPoint.Win.Spread Public Class Form1 'フォームロード時にSPREADの初期化 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'SPREADの設定 With Me.FpSpread1 'スクロールバーの設定 .HorizontalScrollBarPolicy = ScrollBarPolicy.AsNeeded .VerticalScrollBarPolicy = ScrollBarPolicy.AsNeeded '分割ボックスの設定 .ColumnSplitBoxPolicy = SplitBoxPolicy.Never .RowSplitBoxPolicy = SplitBoxPolicy.Never 'カーソル設定 .SetCursor(CursorType.Normal, Windows.Forms.Cursors.Arrow) .SetCursor(CursorType.LockedCell, Windows.Forms.Cursors.Arrow) 'セルがアクティブ時に編集モードにしない .EditModePermanent = False 'セルがアクティブ時に既存の内容を選択しない .EditModeReplace = False End With 'アクティブシートの設定 With Me.FpSpread1.ActiveSheet '選択状態 .SelectionStyle = SelectionStyles.SelectionRenderer '編集モードの設定 .OperationMode = OperationMode.SingleSelect '列のサイズ変更可、行のサイズ変更不可に設定する。 .Columns.Default.Resizable = True .Rows.Default.Resizable = False 'SPREADのアクティブシートのカラム数を３に設定 .ColumnCount = 3 'SPREADの行クリア .RowCount = 0 '列の自動ソートを許可します .Columns(0).AllowAutoSort = True .Columns(1).AllowAutoSort = True .Columns(2).AllowAutoSort = True End With '一覧データ表示 Call Me.DisplayData() End Sub '一覧データ表示 Private Sub DisplayData() 'ソースが長くなるのでWith宣言 With Me.FpSpread1.ActiveSheet '描画を停止させる Me.FpSpread1.SuspendLayout() 'データの行数分の処理 For i As Integer = 0 To 999 '行数を増やす .RowCount += 1 '各セルへのデータ設定 .SetText(i, 0, "A" & i.ToString("000")) Dim j As Integer = i Mod 100 '100で割った余り .SetText(i, 1, "B" & j.ToString("000")) Dim k As Integer = i Mod 10 '10で割った余り .SetText(i, 2, "C" & k.ToString("000")) Next End With '描画を再開させる Me.FpSpread1.ResumeLayout(True) '先頭行を選択設定(1行目が選択色になる) Me.FpSpread1.ActiveSheet.AddSelection(0, 0, 1, 1) End Sub End Class
但し、このままでは少し不満な点が残ります。下図は、2カラム目でソートをさせた時の結果の表示です。

2カラム目のみがソート条件になっているので、1カラム目と3カラム目がうまいこと順番にならない様です。この現象を解消するために、列ヘッダクリックによるソート開始時イベントで以下の様にし、ソート条件を複数に指定します。
'ソート開始時イベント Private Sub FpSpread1_AutoSortingColumn(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AutoSortingColumnEventArgs) Handles FpSpread1.AutoSortingColumn 'デフォルト動作をキャンセル e.Cancel = True '現在のカラムのソートインジケーターを取得 Dim Indicator As Model.SortIndicator = FpSpread1.ActiveSheet.Columns(e.Column).SortIndicator 'ソート条件クラス Dim si(2) As FarPoint.Win.Spread.SortInfo 'ソートの指示値 Dim fSortInfo As Boolean 'ソートキーを「指定列」「指定列以外の左から2番目の列」「指定列以外の左から3番目の列」の順で設定します If Indicator = Model.SortIndicator.None Or Indicator = Model.SortIndicator.Descending Then 'インジケータ：昇順 FpSpread1.ActiveSheet.Columns(e.Column).SortIndicator = Model.SortIndicator.Ascending fSortInfo = True Else 'インジケータ：降順 FpSpread1.ActiveSheet.Columns(e.Column).SortIndicator = Model.SortIndicator.Descending fSortInfo = False End If 'ソート条件の最初は現在のカラム si(0) = New FarPoint.Win.Spread.SortInfo(e.Column, fSortInfo) Dim j As Integer = 1 For i As Integer = 0 To 2 '現在のカラム以外?? If i <> e.Column Then '現在のカラム以外のソート条件を設定 si(j) = New FarPoint.Win.Spread.SortInfo(i, fSortInfo) j += 1 End If Next 'ソート実行 FpSpread1.ActiveSheet.SortRows(0, FpSpread1.ActiveSheet.RowCount, si) End Sub
このイベント処理をソースに追加すると下図の様な表示になります。