getcollection.format

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

		Public Function Get{0}Collection() As {2}Collection
			Return Get{0}Collection(FetchPath.{0})
		End Function

		Public Function Get{0}Collection(ByVal ParamArray relations() As DataManagerBase.FetchPathRelation) As {2}Collection
		
			Dim ds As DataSet = OrmDataSet.NewDataSet()
			
			FillDataSet(CreateSql("{1}", relations), ds, true)
			
			Dim {0}List() As DataRow = GetRows(ds, "{1}")

			If {0}List Is Nothing Then Return Nothing

			Dim a As {2}Collection = New {2}Collection()

			Dim dr As DataRow
			For Each dr In {0}List
				a.Add(New {2}(Me, dr))
			Next

			' must be added afterwards
			a.DataManager = Me

			Return a
			
		End Function

		Public Function Get{0}CollectionFromDataSet() As {2}Collection
			Dim {0}List() As DataRow = GetRows(DataSet, "{1}")
			Dim a As New {2}Collection()
			Dim dr As DataRow

			For Each dr In {0}List
				a.Add(New {2}(Me, dr))
			Next

			' must be added afterwards
			a.DataManager = Me

			Return a
		End Function