敲三层的时候就听师傅说过泛型，只不过当时没有特别的注意。当敲用户登录窗体时，我遇到这样的问题，就是我们需要经过验证输入的信息的正误之后才能登录或者不能登录。判断时，需要返回我们从数据库中查到的信息，那么问题就来了，如何返回呢？
一开始我一直用的是DataTable返回数据的，但是当去判断的时候我不知道如何下手了，按照以往的经验，我们可以使用table.rows()或table.field()，具体的实现方法可以自己试验一下。这种方法虽然可以实现，可是里面重复的内容太多了，尤其是每次使用一个字段时还需要在数据库中数它的位置，很麻烦。因为之前听过泛型的概念，所以就开始捣鼓泛型集合了。
其实，DataTable和List的用法基本上都是一致的，两者的不同之处就在于DataTable偏向于面向过程，需要我们去一个一个的数它所在位置，而List偏向于面向对象，当我们调用它里面的数据时，只需要使用我们要的字段名称即可；相对来说，这个更加方便。下面来看一下我的DataToList类：
'/**********************************************
'类名：DataToListDAL
'命名空间：DAL
'创建时间：2015/1/7 20:33:41
'创建人：王朋波
'版本号：v1.0
'说明：将DataTable类型转换成泛型集合
'版权：Victor
'/**********************************************
Imports System.Reflection
Public Class DataToListDAL
Public Class DataToList
''' <summary>
''' 将DataTable类型转换成泛型
''' </summary>
''' <typeparam name="T">参数，转换中的参数</typeparam>
''' <param name="dt">需要转换的DataTable</param>
''' <returns>返回执行的结果，为泛型</returns>
''' <remarks></remarks>
Public Shared Function converToList(Of T As {New})(ByVal dt As DataTable) As IList(Of T)
'(Of T as {New})中的New是用来约束T的，必须有
'定义并实例化泛型集合
Dim myList As New List(Of T)
'得到实体类的类型名
Dim myType As Type = GetType(T) '此声明不知道如何使用，后边也没有用到
Dim dr As DataRow '定义行集
Dim tempName As String = String.Empty '定义一个临时变量
' 便利DataTable的所有数据行
For Each dr In dt.Rows
Dim myT As New T
Dim propertys() As PropertyInfo = myT.GetType().GetProperties() '定义属性集合
Dim pr As PropertyInfo
'遍历对象的所有属性
For Each pr In propertys
tempName = pr.Name '将属性名称赋值给临时变量
'检查DataTable是否包含此列
If (dt.Columns.Contains(tempName)) Then '将此属性与datatable里的列明比较，查看datatable是否包含此属性
'判断此属性是否有Setter
If (pr.CanWrite = False) Then '判断属性是否可写，如果不能则跳出循环
Continue For
End If
Dim value As Object = dr(tempName) '定义一个对象型的变量类保存变量
If (value.ToString <> DBNull.Value.ToString) Then '如果飞空，则赋给对象属性
pr.SetValue(myT, value, Nothing) '在运行期间，通过反射，动态的访问一个对象的属性
End If
End If
Next
myList.Add(myT) '添加到集合
Next
Return myList '返回实体集合
End Function
End Class
End Class
'/**********************************************
'类名：FLogin
'命名空间：Facade
'创建时间：2015/1/7 20:10:36
'创建人：王朋波
'版本号：v1.0
'说明：
'版权：Victor
'/**********************************************
Imports BLL
Imports Entity
Public Class FLogin
Public Function CheckUser(ByVal enuser As En_User) As String
'实例化B层
Dim checkuserBLL As New BLogin
'实例化List，传递泛型中的值
Dim myList As New List(Of En_User)
'调用B层方法，得到B层返回的myList集合
myList = checkuserBLL.CheckUserBLL(enuser)
'对集合信息进行判定
If myList.Count > 0 Then '如果存在用户
If enuser.Password = Trim(myList(0).Password) Then '如果密码正确
Return "密码正确"
Else '如果密码不正确
Return "密码错误"
End If
Else '用户不存在
Return "用户错误"
End If
End Function
End Class
原文地址：http://blog.csdn.net/wpb92/article/details/42501955
