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 SubEnd Class