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