DataTable转成View页面中使用的List
2014-02-10 19:58
441 查看
' 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
' 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
相关文章推荐
- 给girdview添加数据、并简单分页(使用datatable作为数据源)
- sencha view页面的push方法使用
- .Net Mvc View页面引擎Razor使用笔记-持续更新
- 【Android UI设计与开发】第02期:引导界面(二)使用ViewPager实现欢迎引导页面
- 使用ASP.NET AJAX异步调用Web Service和页面中的类方法(9):服务器端和客户端数据类型的自动转换:DataTable和DataSet
- IOS——使用PresentViewController推送页面,各页面间跳转及遇到的问题
- 使用ASP.NET AJAX异步调用Web Service和页面中的类方法(9):服务器端和客户端数据类型的自动转换:DataTable和DataSet
- List对象转换成DataTable在linq当中很使用
- webview 中使用css适配简单的页面
- WordPress页面函数:wp_list_pages()使用说明
- ViewPager使用FragmentPagerAdapter加载多个fragment,实现对已加载的list做插入、删除及排序操作
- struts2 jsp页面访问List, set 和<s:iterator>的使用
- 使用临时表在list和reapter之间做数据的传递(双击view,数据进入到repeater中,点击reapter中的删除按钮进行删除)
- setContentView+LayoutInflater=完美切换页面(两者一定要同时使用,setContentView提高切换页面速度必看)setContentView的秘密----续上
- ASP.NET页面状态管理——ViewState的使用
- WPF使用BindingListCollectionView 和 ListCollectionView 视图排序集合
- 灵活使用Android中ActionBar和ViewPager切换页面
- Android中View(视图)绘制不同状态背景图片原理深入分析以及StateListDrawable使用详解
- 使用webview显示url的页面
- sharepoint 查询统计list数据,使用CAML联合datatable方法