構造体配列の複数キーソート (ID:89607)

名前

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

本文 遅くなってすみません とりあえずこんな感じになっています 変な書き方ですみません 結局要望がひとつ追加になったので３つのフィールドをつなげてソートしました 配列追加分 ReDim Preserve idno_h(lp3) idno_h(lp3).idno = rst.Fields("idno").Value idno_h(lp3).rankupdate = DMax("rankupdate", "昇格履歴", "kairank = 2 and idno = " & "'" & rst.Fields("idno").Value & "'") idno_h(lp3).rankup_rank = 3 idno_h(lp3).TreeType_sort = idno_h(lp3).rankup_rank & " " & CStr(idno_h(lp3).rankupdate) & " " & idno_h(lp3).idno lp3 = lp3 + 1 ソート For i3 = LBound(idno_h) To UBound(idno_h) - 1 For j3 = LBound(idno_h) To LBound(idno_h) + UBound(idno_h) - i3 - 1 If idno_h(j3).TreeType_sort > idno_h(j3 + 1).TreeType_sort Then lvarBuf = idno_h(j3).idno idno_h(j3).idno = idno_h(j3 + 1).idno idno_h(j3 + 1).idno = lvarBuf lvarBuf = idno_h(j3).rankup_rank idno_h(j3).rankup_rank = idno_h(j3 + 1).rankup_rank idno_h(j3 + 1).rankup_rank = lvarBuf lvarBuf = idno_h(j3).rankupdate idno_h(j3).rankupdate = idno_h(j3 + 1).rankupdate idno_h(j3 + 1).rankupdate = lvarBuf lvarBuf = idno_h(j3).TreeType_sort idno_h(j3).TreeType_sort = idno_h(j3 + 1).TreeType_sort idno_h(j3 + 1).TreeType_sort = lvarBuf End If Next j3 Next i3