DataTable转成View页面中使用的List



        ' GET: /SystemBranch/

        Function Index() As ActionResult

            ViewBag.UnitKindList = PositionUnitKindList()

            Dim sSQL As String = "Select * From SystemBranches Where BRH_Code <> ''"

            '查询

            Dim sUnitKind As String = ""

            If Not IsNothing(Request.QueryString("cboUnitKind")) Then

                sUnitKind = Request.QueryString("cboUnitKind").ToString

            End If

            If sUnitKind <> "" Then

                sSQL = sSQL & " And BRH_UnitKind Like '" & LIKECHAR & Rep(sUnitKind) & LIKECHAR & "'"

            End If

            Dim sFind As String = ""

            If Not IsNothing(Request.QueryString("txtQuickfind")) Then

                sFind = Request.QueryString("txtQuickfind").ToString

            End If

            If sFind <> "" Then

                sSQL = sSQL & " And ( BRH_Code Like '" & LIKECHAR & Rep(sFind) & LIKECHAR & "' Or BRH_Name Like '" & LIKECHAR & Rep(sFind) & LIKECHAR & "')"

            End If

            Dim ds As DataTable = GetDataSet(sSQL)

            Dim items As List(Of SystemBranch) = (From row As DataRow In ds.Rows Select New SystemBranch With {

                          .BRH_Code = row("BRH_Code").ToString(),

                          .BRH_Name = row("BRH_Name").ToString(),

                          .BRH_UnitKind = row("BRH_UnitKind").ToString()

                      }).ToList()

            Return View(items)

        End Function

    '--取数据集

    Public Function GetDataSet(ByVal sSQL As String) As DataTable

        Dim clsDb As New clsDatabase

        Dim oDataTable As New DataTable

        With clsDb

            .FillDataTable(oDataTable, sSQL)

            Return oDataTable

        End With

        clsDb.CloseConn()

    End Function