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

来源于本人的CSDN博客：http://blog.csdn.net/linjimu/article/details/7107284

只为自己练习，参考，备忘。或许对你没有参考价值，请不要模仿。

一个单据有几个小项目，每个小项目又有几个小项目。可以理解：一个主表，有子表，子表又有子表。

某些单据套用，简单的处理程序。

 

 

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