來源於本人的CSDN博客:http://blog.csdn.net/linjimu/article/details/7107284ide
只爲本身練習,參考,備忘。或許對你沒有參考價值,請不要模仿。spa
一個單據有幾個小項目,每一個小項目又有幾個小項目。能夠理解:一個主表,有子表,子表又有子表。.net
某些單據套用,簡單的處理程序。orm
- 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