前端之家收集整理的这篇文章主要介绍了
从DataTable到泛型的转换，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
@H_
404_0@'/***************************************************************
'类 名 称：ChangeToList
'说 明：将DataTable转换成泛型集合
'命名空间：DAL
'创建时间：2015年4月24日17:25:38
'作 者：郑浩
'小 组：
'
修改时间：
'修 改 人：
'版 本 号：V1.0
'****************************************************************/
Imports System.Reflection
Imports System.Collections.Generic
Public Class ChangeToList
''' <summary>
''' 将DataTable转换成泛型集合
''' </summary>
''' <typeparam name="T">任意类型</typeparam>
''' <param name="dt">DataTable</param>
''' <param name="ts">集合</param>
''' <returns>集合</returns>
''' <remarks></remarks>
Public Shared Function ConverToList(Of T As New)(dt As DataTable,ts As List(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
D层的调用代码
@H_
404_0@ ''' <summary>
'''
查询卡表数据
''' </summary>
''' <param name="enCard"></param>
Public Function QueryData(ByVal enCard As cardEntity) As List(Of Entity.cardEntity) Implements ICardDAL.QueryData
'实例化一个
sqlHelper类
Dim helper As New
sqlHelper
'定义
sql语句
Dim
sql As String = "Select * from T_CardInfo"
'定义DataTable
Dim dt As New DataTable
'定义泛型集合
Dim cardList As New List(Of Entity.cardEntity)
dt = helper.ExeSelect(
sql,CommandType.Text)
'如果DataTable中行数大于0，说明有返回的数据，然后将DataTable转换成泛型集合
If dt.Rows.Count > 0 Then
cardList = CType(ChangeToList.ConverToList(dt,cardList),Global.System.Collections.Generic.List(Of Global.Entity.cardEntity))
End If
Return cardList
End Function
