MSFlexGridでソート (ID:125101)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 MSFlexGridのソートに関してです。 以下の質問と同じだと思うのですが、どうしても上手く動作しません。 よろしくお願いします。 http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200311/03110038.txt 期待の動作は、例えば3列目の昇順ソートをかけたとき 3＞1＞2＞4 の順で並び替えを行いたいです。 Dim i As Integer Dim intCol As Integer Dim intSort As Integer ' 合計4列 ソート対象項目をチェックボタン形式で選択 For i = 0 To 3 If chkCol(i).Value = True Then intCol = i + 1 Exit For End If Next i ' 昇順か降順を選択 For i = 0 To 1 If chkSort(i).Value = True Then intSort = i + 1 Exit For End If Next i ' 一列目は日時なため一般的なソートではなく文字列ソートに変換 If intCol = 1 And intSort = flexSortGenericAscending Then intSort = flexSortStringAscending If intCol = 1 And intSort = flexSortGenericDescending Then intSort = flexSortStringDescending With grdLogDisp .Col = 1 .ColSel = intCol + 1 .Sort = intSort .Row = 1 .Col = 1 .TopRow = 1 End With