asp.net|datagrid|分页|排序

DataGrid是Asp.NET中的一个重要的控件，经常我们都将DataGrid做成可分页的和可排序的，有时还需要加上选择功能。这些都是经常需要用到的方法，其实是比较简单的。

　　设计思路：

　　为了方便起见，我们连接SQL Server 2000的NorthWind数据库的Orders表，从数据库里得到此表的数据视图。利用DataGrid的SortCommand事件实现排序。用一个模板列加上CheckBox控件实现选择。可用DataGrid的属性生成器的“分页”选项或者自己修改HTML实现分页。

　　HTML：

　　添加一个DataGrid，命名为dgOrder。

　　添加了一个模板列，模板列里放一个名为Cb的CheckBox控件。此列用来实现选择

　　为要排序的每个列加上排序表达式SortExpression。

　　利用列的DataFormatString来格式化列，象DataFormatString="{0:d}"显示日期格式。

　　设置PageSize="15"每页显示15行数据，AllowPaging="True" 为允许分页 。

　　ield="orderid" SortExpression="orderid" HeaderText="ID">　　

　　后台类添加以下代码：


Imports System.Data.SqlClnt

　　'得到数据视图，参数为要排序的列

　　Private Function GetDv(ByVal strSort As String) As DataView

　　'定义数据库连接

　　Dim dv As DataView

　　Dim CN As New SqlConnection()

　　Try

　　'初始化连接字符串

　　CN.ConnectionString = "data source=pmserver;initial catalog=Northwind;persist security info=False;user id=sa;Pass=sa;"

　　CN.Open()

　　'从NorthWind得到orders表的数据

　　Dim adp As SqlDataAdapter = New SqlDataAdapter("select * from orders", CN)

　　Dim ds As New DataSet()

　　adp.Fill(ds)

　　'得到数据视图

　　dv = ds.Tables(0).DefaultView

　　Catch ex As Exception

　　#If DEBUG Then

　　Session("Error") = ex.ToString()

　　Response.Redirect("../error.aspx") '跳转程序的公共错误处理页面

　　#End If

　　Finally

　　'关闭连接

　　CN.Close()

　　End Try

　　'排序

　　dv.Sort = strSort

　　Return dv

　　End Function

　　Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

　　If Not IsPostBack Then

　　ViewState("strSort") = "orderid"

　　dgOrder.DataSource = GetDv(ViewState("strSort").ToString())

　　dgOrder.DataBind()

　　End If

　　End Sub

　　'排序

　　Private Sub dgOrder_SortCoand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles dgOrder.SortCommand

　　dgOrder.CurrentPageIndex = 0

　　'得到排序的列

　　ViewState("strSort") = e.SortExpression.ToString()

　　dgOrder.DataSource = GetDv(ViewState("strSort").ToString())

　　dgOrder.DataBind()

　　End Sub

　　'分页

　　Private Sub dgOrder_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dgOrder.PageIndexChanged

　　'得到分页的页号

　　dgOrder.CurrentPageIndex = e.NewPageIndex

　　dgOrder.DataSource = GetDv(ViewState("strSort").ToString())

　　dgOrder.DataBind()

　　End Sub

　　运行结果如下图所示：(点击列标头可以排序)