让Asp.NET的DataGrid可排序、可选择、可分页

做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" 为允许分页 。

整个HTML页代码：

后台类添加以下代码：

imports System.Data.SqlClient

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

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;Password=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_SortCommand(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

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

为了知道用户选择的是哪些记录，我们可以利用datagriditem的findcontrol得到checkbox的值，我们来添加一个按钮，再写如下代码：

private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

dim item As DataGridItem

dim StrScript As String

strscript = "
alert('"
'循环表格的项，findcontrol
for Each item In Me.dgOrder.Items
if CType(item.FindControl("cb"), System.Web.UI.WebControls.CheckBox).Checked Then
try
strscript += item.Cells(1).Text & Space(2)
catch ex As Exception
end Try
end If
next
strscript += "被选择！')
"

registerclientscriptblock("系统消息", StrScript)

end Sub

上面的代码registerclientscriptblock添加java Script脚本弹出对话框。（其实Vb Script的对话框比Java Script的对话框多更多的显示和控制方式，但Netscape的浏览器不支持，大家可根据相应的项目在程序里选择用哪种脚本）。

总结：

datagrid是我们常用的web 控件，有时我们还可以和DataList混合使用，通过修改HTML页，可以达到好的页面效果。上面只是一个例子，为了便于清楚整个过程，我把数据访问部分(SQL)写到了页面中。在软件开发中，我们一般把访问数据的部分写成数据层，页面调用数据层得到数据，这样逻辑清晰，修改和维护都很方便。