DataTable 与 泛型

         在机房重构中总是需要查询数据库中的表，并返还表中的基本信息。接触到DataTable和泛型的使用。

   刚接触的时候使用DataTable。
   概述：
   是一个临时保存数据的网络虚拟表，表示内存中数据的一个表。DataTable是ADO.Net库中的核心对象。 它可以被应用在 VB 和 ASP 上。它无须代码就可以简单的绑定数据库。它具有微软风格的用户界面。

   在处理较少数据时更方便易用，以表格的形式反映数据库中数据情况，使数据更直观的展现给用户。但是作为一张虚拟表，会占用一定的内存，数据库较大时可能导致DataTable崩溃使系统无法正常使用。而且由于与数据库连接，在书写代码时候，需要与数据库中的字段名一一对应，倘若修改数据库中某些信息将会直接对代码编程造成影响，出现系统错误。这样就违背了面向对象的编程。

   自从接触到泛型，感觉发现了新大陆。

   概述：

   泛型是程序设计语言的一种特性。允许程序员在强类型程序设计语言中编写代码时定义一些可变部分，那些部分在使用前必须作出指明。各种程序设计语言和其编译器、运行环境对泛型的支持均不一样。将类型参数化以达到代码复用，提高软件开发工作效率的一种数据类型。

   感觉泛型就好像一个模板，将重复代码写到一个类中，如下：

Imports System.Reflection  '引入反射，为了使用PropertyInfo
Module ModuleHelper
    Public Class ModuleHelper
        '将DataTable转换为泛型集合
        Public Shared Function ConvertToList(Of Turn As {New})(ByVal dt As DataTable) As IList(Of Turn)
            '获得Turn的类型  这里的new用来约束Turn,必须有，否则new时会出错

            '得到实体类的类型名
            Dim type As Type = GetType(Turn)
            '定义一个新的泛型集合，返回最终结果
            Dim ts As New List(Of Turn)
            '定义一个临时变量
            Dim strTemp As String = String.Empty
            '定义行集
            Dim dr As DataRow

            '遍历表中所有行数(这里可以写成for each dr as Datatable In dt.Rows同上的)
            For Each dr In dt.Rows

                '定义类型变量Act获取动态创建对象T的类型
                Dim act As Turn = If((Nothing Is Nothing), Activator.CreateInstance(Of Turn)(), 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
                    '检查DataTable是否包含此列（列名=对象的属性名）
                    If dt.Columns.Contains(strTemp) Then
                        '判断此属性是否设置函数  
                        If (pr.CanWrite = False) Then   '该属性是否可写  ,如果不可写，跳出本次循环
                            Continue For
                        End If

                        '定义一个对象型的变量来保存列的值
                        Dim value As Object = dr(strTemp)
                        '如果非空，则赋值给对象的属性  
                        If (value.ToString IsNot DBNull.Value.ToString) Then
                            'If value IsNot Nothing Then
                            '设置对象的属性值。  
                            pr.SetValue(act, value, Nothing) '在运行期间，通过反射动态的访问一个对象的属性
                        End If
                    End If

                    intCount += 1
                    Continue While
                End While
                '添加对象到泛型集合中  
                ts.Add(act)
            Next
            Return ts    '返回实体集合
        End Function
    End Class
End Module

   其中由GetType方法得知泛型机器类型参数的实际类型，需要强调的是，在程序变麻中一些包含类型参数的类型，也就是说泛型的参数只可以代表类，不能代表个别对象。泛型属于一种面向对象的强类型编程语言特性，主要能够加强类型安全及减少类转换的次数，更加灵活有效。相比较DataTable而言，不必收到数据库修改的影响，只需在实体中定义属性并与数据库中字段保持对应即可。