VB.Net程式設計:Dictionary和Collection搭配使用
阿新 • • 發佈:2019-02-11
只為自己練習,參考,備忘。或許對你沒有參考價值,請不要模仿。
一個單據有幾個小專案,每個小專案又有幾個小專案。可以理解:一個主表,有子表,子表又有子表。
某些單據套用,簡單的處理程式。
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
介面如下: