DataSet转换为泛型集合List(Of T)

在上篇博客“DataTable转换为实体（函数）”的介绍的最后提出了这样的问题：

思考问题：函数返回值为实体，这意味着什么？

意味着该函数的返回记录只能有一条，对不对？因为一个实体只能“保存”一条记录。

像查看某学生基本信息、某用户基本信息——某个人的基本信息只能有一条记录（学生实体：卡号、学号、姓名、…）吧，好，可有定义返回实体函数

思考问题： 但是，如果“根据日期查看所有收取金额记录”——不止一条记录吧，给你U层返回一个实体，能实现此功能吗？当然不能。

如何解决？
面对此问题，如何解决，你想过吗？——你说，返回DataSet或DataTable不就得了吗。你看，Out了吧….

偷偷告诉大家，还是返回实体，但是这次不是返回一个实体啦，是返回”一群“实体（实体集合）

（上篇博客链接：《DataSet转换为实体（函数）》）



本篇博客就介绍，如果由DataSet转换为泛型集合（集合中存放的是实体，即：实体集合） 涉及到“泛型”知识点，请参考：《泛型》



例子：机房收费系统——查看某段日期内收取金额记录

只写D层



1，查询某段日期内收取金额记录——CheckGetRechargeInfo(参数)——返回值：充值信息实体泛型集合




2，数据集转换为泛型集合——DataSetToList(参数)——返回值：充值信息实体的泛型集合

''' <summary>        ''' 数据表转换为泛型集合
        ''' </summary>
        ''' <param name="dt">数据表</param>
        ''' <returns>充值基本信息实体的泛型集合</returns>
        ''' <remarks></remarks>
        Public Function DataSetToList(ByVal dt As DataTable) As IList(Of Entity.RechargeInfoEntity) Implements IDAL.IRechargeInfoDAL.DataSetToList
            '定义泛型集合
            Dim list As New List(Of Entity.RechargeInfoEntity)
            Dim type As Type = GetType(Entity.RechargeInfoEntity)
            '定义临时变量
            Dim tempName As String

            '遍历数据表中的每一行
            For Each dr As DataRow In dt.Rows
                '创建充值基本信息实体类
                Dim enRechargeInfo As New Entity.RechargeInfoEntity
                Dim Propertys() As System.Reflection.PropertyInfo = enRechargeInfo.GetType().GetProperties() '获得实体类enRechargeInfo的所有属性，并存放到数组中
                '遍历该对象的所有属性
                For Each pi As System.Reflection.PropertyInfo In Propertys
                    tempName = pi.Name '将属性名称赋值给临时变量

                    '检查DataTable是否包含此列（列名=对象的属性名）
                    If dt.Columns.Contains(tempName) Then '如果包含此列
                        If Not pi.CanWrite Then '如果该属性不可写，直接跳出
                            Continue For
                        End If
                        '如果该属性可写入
                        Dim value As Object = dr(tempName)
                        '如果非空，则赋给对象的属性
                        If Not IsNothing(value.ToString()) Then
                            Dim a As String = value.ToString().Trim()
                            pi.SetValue(enRechargeInfo, a, Nothing)

                        End If
                    End If

                Next
                list.Add(enRechargeInfo) '将充值信息实体添加到集合中
            Next

            Return list '返回泛型集合

        End Function

3，B、U层依次调用

选择‘起始日期’和‘终止日期’点击“查看”按钮，即可查看该段日期段的收取金额记录：







其实在后来的泛型集合（泛型实体类）应用中也遇到了一些问题，最后也算是解决了吧。如果谁想尝试泛型，可以和我交流一下，大家一起沟通学习一下，一起提高！！