setcollections.format

来自「客户关系管理系统ASP.NET+VB.NET编程完整程序！」· FORMAT 代码 · 共 33 行

			{4} Function Add{2}(ByVal New{2} As {0}) As Integer
				If _{2}s Is Nothing Then
					 refresh{2}s()
				End If
 
				New{2}.row.SetParentRow(row,MyBase.DataSet.Relations("{1}{3}"))
 
				 _{2}s.Parent = Nothing
 
				' add to collection
				Dim index As Integer =  _{2}s.Add(New{2}) 
 
				 _{2}s.Parent = Me
 
				_{2}s.OnListChanged(New ListChangedEventArgs(ListChangedType.ItemAdded,index))
 
				Return index
 
			End Function

			{4} Function New{2}() As {0}
				If _{2}s Is Nothing Then
					 refresh{2}s()
				End If
 
				Dim _{2} As New {0}(MyBase.DataContext,MyBase.DataSet.Tables("{3}").NewRow()) 
				MyBase.DataSet.Tables("{3}").Rows.Add(_{2}.row)
 
				Me.Add{2}(_{2})
 
				Return _{2}
			End Function