VB.Net程序设计：Dictionary和Collection搭配使用

Public Class Form2

'一个总集合：子表。
Dim mList As New Dictionary(Of String, Collection)
'一个子表里面的子表记录集
Dim mcc As New Collection

Private Sub ShowList()
Me.ListView1.Items.Clear()
If mList.Count > 0 Then
Dim mc As Collection
Dim item As ListViewItem
Dim strName As String
For Each obj As KeyValuePair(Of String, Collection) In mList
mc = obj.Value
strName = String.Empty
item = New ListViewItem
For Each c As Object In mc
strName &= CType(c, DataGridViewRow).Cells(1).Value.ToString
Next
item.Text = strName
item.ImageIndex = 0
item.Tag = mc.GetHashCode.ToString
Me.ListView1.Items.Add(item)
Next
End If
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.DataGridView1.Columns.Add("ID", "ID")
Me.DataGridView1.Columns.Add("NAME", "NAME")
Me.DataGridView1.Tag = mcc.GetHashCode.ToString
End Sub

Private Sub BtnAddColl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddColl.Click
mcc = New Collection
Me.DataGridView1.Rows.Clear()
Me.DataGridView1.Tag = mcc.GetHashCode.ToString
End Sub

Private Sub BtnSaveColl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSaveColl.Click
If Me.DataGridView1.Rows.Count > 0 Then
mcc.Clear()
For i As Integer = 0 To Me.DataGridView1.RowCount - 1
If Me.DataGridView1.Rows(i).IsNewRow = False Then
mcc.Add(Me.DataGridView1.Rows(i), i.ToString)
End If
Next
If mList.ContainsKey(Me.DataGridView1.Tag) Then
mList.Item(Me.DataGridView1.Tag) = mcc
Else
mList.Add(mcc.GetHashCode.ToString, mcc)
End If
ShowList()
End If
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
If Me.ListView1.SelectedItems.Count > 0 Then
Me.DataGridView1.Tag = Me.ListView1.SelectedItems.Item(0).Tag.ToString
mcc = mList.Item(Me.DataGridView1.Tag)
Me.DataGridView1.Rows.Clear()
For Each mc As Object In mcc
Me.DataGridView1.Rows.Add(CType(mc, DataGridViewRow))
Next
End If
End Sub

End Class