只为自己练习,参考,备忘。或许对你没有参考价值,请不要模仿。
一个单据有几个小项目,每个小项目又有几个小项目。可以理解:一个主表,有子表,子表又有子表。
某些单据套用,简单的处理程序。
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。