VB.Net程序设计：Dictionary和Collection搭配使用

发布时间：2020-12-17 00:24:10 所属栏目：大数据来源：网络整理

导读：来源于本人的CSDN博客：http://www.jb51.cc/article/p-uhqxfgvo-ts.html 只为自己练习，参考，备忘。或许对你没有参考价值，请不要模仿。一个单据有几个小项目，每个小项目又有几个小项目。可以理解：一个主表，有子表，子表又有子表。某些单据套用，简单

来源于本人的CSDN博客：http://www.52php.cn/article/p-uhqxfgvo-ts.html

只为自己练习，参考，备忘。或许对你没有参考价值，请不要模仿。

一个单据有几个小项目，每个小项目又有几个小项目。可以理解：一个主表，有子表，子表又有子表。

某些单据套用，简单的处理程序。

 
 
  
  PublicClassForm2 
  
   
  
  '一个总集合：子表。 
  
  DimmListAsNewDictionary(OfString,Collection) 
  
  '一个子表里面的子表记录集 
  
  DimmccAsNewCollection 
  
   
  
  PrivateSubShowList() 
  
  Me.ListView1.Items.Clear() 
  
  IfmList.Count>0Then 
  
  DimmcAsCollection 
  
  DimitemAsListViewItem 
  
  DimstrNameAsString 
  
  ForEachobjAsKeyValuePair(OfString,Collection)InmList 
  
  mc=obj.Value 
  
  strName=String.Empty 
  
  item=NewListViewItem 
  
  ForEachcAsObjectInmc 
  
  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 
  
  EndIf 
  
  EndSub 
  
   
  
  PrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load 
  
  Me.DataGridView1.Columns.Add("ID","ID") 
  
  Me.DataGridView1.Columns.Add("NAME","NAME") 
  
  Me.DataGridView1.Tag=mcc.GetHashCode.ToString 
  
  EndSub 
  
   
  
  PrivateSubBtnAddColl_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtnAddColl.Click 
  
  mcc=NewCollection 
  
  Me.DataGridView1.Rows.Clear() 
  
  Me.DataGridView1.Tag=mcc.GetHashCode.ToString 
  
  EndSub 
  
   
  
  PrivateSubBtnSaveColl_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtnSaveColl.Click 
  
  IfMe.DataGridView1.Rows.Count>0Then 
  
  mcc.Clear() 
  
  ForiAsInteger=0ToMe.DataGridView1.RowCount-1 
  
  IfMe.DataGridView1.Rows(i).IsNewRow=FalseThen 
  
  mcc.Add(Me.DataGridView1.Rows(i),i.ToString) 
  
  EndIf 
  
  Next 
  
  IfmList.ContainsKey(Me.DataGridView1.Tag)Then 
  
  mList.Item(Me.DataGridView1.Tag)=mcc 
  
  Else 
  
  mList.Add(mcc.GetHashCode.ToString,mcc) 
  
  EndIf 
  
  ShowList() 
  
  EndIf 
  
  EndSub 
  
   
  
  PrivateSubListView1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListView1.SelectedIndexChanged 
  
  IfMe.ListView1.SelectedItems.Count>0Then 
  
  Me.DataGridView1.Tag=Me.ListView1.SelectedItems.Item(0).Tag.ToString 
  
  mcc=mList.Item(Me.DataGridView1.Tag) 
  
  Me.DataGridView1.Rows.Clear() 
  
  ForEachmcAsObjectInmcc 
  
  Me.DataGridView1.Rows.Add(CType(mc,DataGridViewRow)) 
  
  Next 
  
  EndIf 
  
  EndSub 
  
   
  
  EndClass

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!