collections.format

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

	    Private _{2}s As {0}Collection = Nothing
	
		Friend Sub refresh{2}s()
			If _{2}s Is Nothing Then _{2}s = New {0}Collection()
			
			Dim tmp as IList = _{2}s
			tmp.Clear()

			Dim cr() As DataRow = row.GetChildRows("{1}{3}")
			Dim chld As DataRow
			For Each chld In cr
				Dim obj As New {0}(MyBase.DataContext, chld)
				_{2}s.Add(obj)
			Next

			_{2}s.Parent = Me
		End Sub