泛型简单介绍

        泛型能够最大限度的重用代码、保护类型的安全、提高性能。

        泛型最常见的用途是创建集合类

        泛型数据类型中使用的信息可在执行时通过反射获取。

        能够创建自己的泛型接口、泛型类、泛型方法、泛型事件、泛型托付。

    个人理解

        我所使用使用的泛型是一个list<>集合。仅仅是集合中的每个元素都是一个实体，而每个实体都相当于DataTable中的一条记录。DataTable是多条记录的集合，而list<>是多个实体的集合。

    什么要转泛型？

        1、list<T>遍历方便，取到的都是单个的实体。

        2、降低输入，仅仅须要传一个实例T就能够获取它的不论什么属性。

        3、正确的构建泛型类，能够降低代码中的安全问题。

        4、泛型确保了在工作量最小的情况下，为应用程序提供最佳的性能。

    泛型实例

         以充值为例，实战一下将DataTable转换为泛型，首先我们在D层创建一个类ConverHelper，用于将DataTable转换为泛型。

<span style="font-size:18px;"><strong>Imports System.Reflection  '引用反射

Imports System.Collections.Generic

Module ConverHelper

    Public Class ConverHelper

        Public Shared Function ConvertToList(Of T As New)(dt As DataTable, ts As IList(Of T))

            '获得T的类型

            Dim type As Type = GetType(T)

            '定义一个暂时变量

            Dim strTemp As String = String.Empty

            '遍历表中全部行数

            For Each dr As DataRow In dt.Rows

                '定义类型变量act获取动态创建对象T的类型

                Dim act As T = If((Nothing Is Nothing), Activator.CreateInstance(Of T)(), Nothing)

                '引用反射表示可获得对象的全部属性组成的集合

                Dim propertys As PropertyInfo() = act.[GetType]().GetProperties()

                '定义array变量。接收propertys中含有的属性，并提供对属性propertys元数据訪问

                Dim array As PropertyInfo() = propertys

                Dim intCount As Integer = 0

                '遍历全部对象属性

                While intCount < array.Length 'length表示全部维数中元素的总和

                    'pr表示元素中含有的属性，并提供对数据訪问

                    Dim pr As PropertyInfo = array(intCount)

                    strTemp = pr.Name

                    '列名=对象的属性名

                    If dt.Columns.Contains(strTemp) Then

                        '推断此属性是否设置函数

                        If pr.CanWrite Then '该属性是否可写

                            Dim value As Object = dr(strTemp)

                            '假设非空，则赋值给对象的属性

                            If value IsNot DBNull.Value Then

                                '设置对象的属性

                                pr.SetValue(act, value, Nothing)

                            End If

                        End If

                    End If

                    intCount += 1

                    Continue While

                End While

                '加入对象到泛型集合中

                ts.Add(act)

            Next

            Return ts

        End Function

    End Class

End Module

</strong></span>

     D层中充值窗口调用这个类

<span style="font-size:18px;"><strong>        dt = sqlhelper.ExecSelect(str, CommandType.Text, sqlparamsnew)

        If (dt.Rows.Count > 0) Then

            list = ConverHelper.ConverHelper.ConvertToList(dt, list)

            Return list

        Else

            Throw New Exception("没有记录！")

        End If</strong></span>

    此时，D层的返回值类型

<span style="font-size:18px;"><strong> List(Of Entity.RechargeEntity)</strong></span>

    事实上当我们接触一些新东西的时候，它可能并没有想象中的那么难，仅仅要去做就能够了。