在vb.net2005 如何对一个2维数组进行排序？在线等

[email10000]

比如：strArray(1,5)


排序前：

下标 0 1 2 3 4 5

元素0的值 3 8 9 1 0 16

元素1的值 aa cc dd ff zz kk


排序后：

下标 0 1 2 3 4 5

元素0的值 0 1 3 8 9 16

元素1的值 zz ff aa cc dd kk



如何根据 元素0，进行排序！有.net自带的方法吗？还是需要自己写呢？

[dlzhangln]

Sub collectionSort()
Dim _result As String
Dim tb As New DataTable("tb")
Dim valuefield As New DataColumn("valuefield", GetType(Integer))
Dim charfield As New DataColumn("charfield", GetType(String))
tb.Columns.Add(valuefield)
tb.Columns.Add(charfield)
Dim row As DataRow = tb.NewRow
tb.Rows.Add(0,"zz")
tb.Rows.Add(1,"ff")
tb.Rows.Add(3,"aa")
tb.Rows.Add(8,"cc")
tb.Rows.Add(9,"dd")
tb.Rows.Add(16,"kk")
Dim dv As DataView = tb.DefaultView
dv.Sort = "valuefield DESC"

tb = New DataTable
tb = dv.ToTable("tb")

For Each _row As DataRow In tb.Rows

For Each _col As DataColumn In tb.Columns

_result.Append(_row(_col)).Append(ControlChars.Tab)

Next

_result.Append(Chr(13) & Chr(10))

Next

Response.Write(_result.ToString)

End Sub

[email10000]

有没有更好的办法呢？

[dlzhangln]

Dim arr As New ArrayList
arr.Add("0-zz")
arr.Add("1-ff")
arr.Add("3-aa")
arr.Add("8-dd")
arr.Add("16-kk")
arr.Sort()
Dim i As Integer
For i = 0 To arr.Count - 1
Console.WriteLine("{0} {1}", arr(i).ToString.Split("-")(1), arr(i).ToString.Split("-")(0))
Next

[email10000]

其实用冒泡排序也可以的，谢谢，揭帖了

[dlzhangln]

嗯，应该可以的，谢谢结帖

[dlzhangln]

大兄弟，结帖不是用嘴说出来的，给分啊

[email10000]

呵呵，现在好了