利用 ArrayList 排序

如上圖,利用ArrayList來快速排序;進而在取值過程加入判斷處理其他事情!!
利用在何處? 看怎用了,很多地方吧;比如我就用了很多地方,其中一項就是廠商的關帳日了
當打進貨單時,就得先帶出{結帳日期},至於{匯款日(承如:在ERP內有一篇,那是自動帶的,但不一定要自動帶匯款日;看怎寫法而已)}

底下為code:
------------------------------------------
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = Label1.Text
Dim b_day As New ArrayList
If InStr(a, ",") > 0 Then
For Each b As String In a.Split(",")
If Trim(b) = "" Then
Exit For
Else
ListBox1.Items.Add(b)
b_day.Add(Val(b))
End If
Next
End If

If b_day.Count >= 0 Then
b_day.Sort()
For i As Integer = 0 To b_day.Count - 1
ListBox2.Items.Add(b_day.Item(i))
Next
End If
End Sub
End Class