get.format

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

		Public Function Get{0}(ByVal ParamArray relations() As DataManagerBase.FetchPathRelation) As {2}
		
			Dim ds As DataSet = OrmDataSet.NewDataSet()
			FillDataSet(CreateSql("{1}", relations), ds, false)
			
			Dim {0}Row As DataRow = GetRow(ds, "{1}")
			
			If {0}Row Is Nothing Then Return Nothing
			Return New {2}(Me, {0}Row)
			
		End Function


		Public Function Get{0}FromDataSet(ByVal {5} As {3}) As {2}
		
			Dim {0}Row As DataRow = Nothing
			Dim dr As DataRow

			For Each dr In DataSet.Tables("{1}").Rows
				If (CType(dr("{4}"), {3})).ToString() = {5}.ToString() Then
					{0}Row = dr
					Exit For
				End If
			Next

			If {0}Row Is Nothing Then Return Nothing
			Return New {2}(Me, {0}Row)
			
		End Function