<続>FlexGridでソートのキーを複数設定できますか？ (ID:79709)

名前

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

本文 お世話になってます。環境はVB6です。 以前、MSFLEXGridのソートの件で 列1 列2 列3 A1 B1 Ｒ A2 B2 Ｆ A1 B3 Ｆ A1 B4 Ｒ A2 B5 Ｒ A1 B6 Ｆ A1 B7 Ｒ A1 B8 Ｆ ↓ A1 B3 Ｆ A1 B6 Ｆ A1 B8 Ｆ A1 B1 Ｒ A1 B4 Ｒ A1 B7 Ｒ A2 B2 Ｆ A2 B5 Ｒ のようにソートするにはどうしたらよいか質問させていただきました。 文字列の場合 Private Sub cmdSort_Click() MSHFlexGrid1.Sort = 9 End Sub Private Sub MSHFlexGrid1_Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As Integer) Dim sRow1 As String Dim sRow2 As String With MSHFlexGrid1 sRow1 = .TextMatrix(Row1, 1) & .TextMatrix(Row1, 3) & .TextMatrix(Row1, 2) sRow2 = .TextMatrix(Row2, 1) & .TextMatrix(Row2, 3) & .TextMatrix(Row2, 2) Cmp = StrComp(sRow1, sRow2) End With End Sub とすれば良いと、教えていただきました。 今回やろうとしているソートは真ん中の列が数値なので、うまくいかず 作業が止まってしまっております。 どなたか、ご教授くだされば幸いです。 よろしくお願い致します。m(_ _)m