二次元配列を複数条件でソートするには

解決

いさみせんせい 2005-02-03 23:05:29 No: 88180

いつもお世話になっております。

表題の通り、二次元配列を複数条件でソートしたいのですが…
条件が単数の場合は以下のソースでうまく行くのですが、
複数条件でしかも条件に優劣がある場合
→条件Ⅰ>条件Ⅱ>条件Ⅲ
の記述が分かりません。
分かる方お願い致します。
ちなみにVB6 Win2000です。

以下ソース

    If Not CBool(lSt) Then lSt = LBound(strToday)
    If Not CBool(lE) Then lE = UBound(strToday)
    If lSt >= lE Then Exit Function

    lngIdx = lE
    Do Until lngIdx <= lSt
        lngCnt = lngSt
        Do Until lngCnt >= lngIdx
            If strToday(lngCnt).NO >= strToday(lngCnt + 1).NO Then
                strNo = strToday(lngCnt).NO
                udtWork.DATA() = strToday(lngCnt).DATA()
                strToday(lngCnt).NO = strToday(lngCnt + 1).NO
                strToday(lngCnt).DATA() = strToday(lngCnt + 1).DATA()
                strToday(lngCnt + 1).NO = strNo
                strToday(lngCnt + 1).DATA() = udtWork.DATA()
            End If
            lngCnt = lngCnt + 1
        Loop
        lngIdx = lngIdx - 1
    Loop

LESIA 2005-02-04 01:58:06 No: 88181

これは、二次元配列じゃなくて、ユーザー定義型の配列で、その中の要素も配列に
なっているものなんじゃないかな？(^^;

まぁ、それは置いといて、複数条件でソートする場合は、まず条件３でソートして
その結果を条件２でソートし、さらにその結果を条件１でソートすれば良いです。

いさみせんせい 2005-03-10 01:08:38 No: 88182

ありがとうございました
無事解決いたしました…

御礼が遅くなってしまい申し訳ございません