VB.NET——泛型集合的使用

   因为我们每次和数据库交互都需要转换为泛型，所以将这个方法抽象出来，放在D层一遍调用，和sqlhelper类的作用相似

'**********************************************'说明:将DataTable转化为泛型集合'命名空间：DAL'机器名称：晓'创建日期：2015/2/23 11:13:28'作者：郑浩'版本号：V1.00'**********************************************Imports System.Collections.Generic  '增加泛型的命名空间  Imports System.Reflection '引入反射：为了使用PropertyInfo Public Class  ConvertGenericsHelper    '将datatable转化为泛型集合      Public Shared Function convertToList(Of T As {New})(ByVal dt As DataTable) As IList(Of T)        '注意：convertToList(Of T As {New}) 这里的new是用来约束T的，必须有，不然new T的时候会出现错误          Dim myList As New List(Of T)   '定义最终返回的集合          Dim myTpye 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 FunctionEnd Class

 

 D层代码

'**********************************************'说明:利用泛型集合来查看学生余额'命名空间：DAL'机器名称：晓'创建日期：2015/2/23 11:27:21'作者：郑浩'版本号：V1.00'**********************************************Imports IDALImports System.Data.SqlClientPublic Class SqlserverCheckBalanceDAL : Implements ICheckBalance    Public Function ICheckBalance(studentinfo As Entity.EN_StudentInfo) As List(Of Entity.EN_StudentInfo) Implements ICheckBalance.ICheckBalance        Dim sql As String        sql = "select * from ZH_StudentInfo where CardNo = @CardNo"        Dim paras As SqlParameter() = {New SqlParameter("CardNo", studentinfo.CardNo)}        Dim dt As New DataTable        '保存转换后的泛型集合          Dim myList As New List(Of Entity.EN_StudentInfo)        dt = SqlHelper.SqlHelper.ExecSelect(sql, CommandType.Text, paras)        '先判断dt是否为空          If dt.Rows.Count > 0 Then            '将dt转换为泛型集合              myList = ConvertGenericsHelper.convertToList(Of Entity.EN_StudentInfo)(dt)            Return myList        Else            Return Nothing        End If    End FunctionEnd Class

U层代码

        ’直接给文本框赋值

        Dim studentinfo As New Entity.EN_StudentInfo        studentinfo.CardNo = Trim(txtCardNo.Text)        Dim dt As New List(Of Entity.EN_StudentInfo)        Dim checkbalance As New Facade.FacadeCheckBalance        dt = checkbalance.CheckBalance(studentinfo)        txtClass.Text = dt(0).Classes  '0表示泛型集合中的第一个实体        txtStudentNo.Text = dt(0).StudentNo        txtName.Text = dt(0).StudentName        txtSex.Text = dt(0).Sex        txtStatus.Text = dt(0).Status        txtGrade.Text = dt(0).Grade        txtBalance.Text = dt(0).Cash        txtExplain.Text = dt(0).Explain    End Sub

  ’和DataGridView控件交互

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click        Dim studentinfo As New Entity.EN_StudentInfo        studentinfo.CardNo = Trim(txtCardNo.Text)        Dim dt As New List(Of Entity.EN_StudentInfo)        Dim checkbalance As New Facade.FacadeCheckBalance        dt = checkbalance.CheckBalance(studentinfo)        dgvRecord.DataSource = dt        dgvRecord.AutoGenerateColumns = True        dgvRecord.Columns(1).HeaderText = "卡号"    End Sub