配列のソート

環境/言語:[ｘｐ]
分類:[.NET]

いつも参考にさせて頂いています
VB．Net　の初心者です
ジョグ配列をキーでソートする方法を教えて下さい。

プログラムは次の通りです

Dim y()() As String = {New String() {"2004/06/17", "食料品", "魚"}, _
New String() {"2004/06/17", "食料品", "野菜"}, _
New String() {"2004/06/17", "食料品", "肉"}, _
New String() {"2004/06/17", "通信費", "切手"}, _
New String() {"2004/06/17", "通信費", "ハガキ"}, _
New String() {"2004/06/17", "通信費", "電話"}, _
New String() {"2004/06/16", "食料品", "温泉卵"}, _
New String() {"2004/06/16", "食料品", "メロンパン"}, _
New String() {"2004/06/16", "食料品", "ハム"}}

'y(8)(2)ができた
'y を日付でソートしたいが２次元配列はソート出来ないのでジョグ配列　　　　　にしました
Dim x(8) As String
Dim i As Integer
For i = 0 To 8
x(i) = y(i)(0)
Next
'x をキーとしソート
Array.Sort(x, y)
'結果は　「温泉卵　メロンパン　ハム　電話　ハガキ　野菜　魚　切手　　　　　肉」　です
'私は日付が同じなら元のままの並びにしたいので
'「温泉卵　メロンパン　ハム　魚　野菜　肉　切手　ハガキ　電話」　　　　　　にしたい
'良い方法はありませんでしょうか？

■No4452に返信(平ちゃんさんの記事)
> いつも参考にさせて頂いています
> VB．Net　の初心者です
> ジョグ配列をキーでソートする方法を教えて下さい。


すみませんでした。
多分ソートアルゴリズムでこのようになるのでしょう。

ちなみに、ジョグじゃなくて、ジャグですよ