‘***************************************************************
‘Author: 李洪根
‘MAIL: lihonggen0@gci-corp.com
‘专栏： http://www.csdn.net/develop/author/netauthor/lihonggen0/
‘如需引用，请指明出处！ CSDN论坛VB版欢迎您！
‘***************************************************************
让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" 为允许分页 。
整个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 = ""
RegisterClientScriptBlock("系统消息", StrScript)
End Sub
上面的代码RegisterClientScriptBlock添加Java Script脚本弹出对话框。（其实Vb Script的对话框比Java Script的对话框多更多的显示和控制方式，但Netscape的浏览器不支持，大家可根据相应的项目在程序里选择用哪种脚本）。
为了知道用户选择的是哪些记录，我们可以利用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 = ""
RegisterClientScriptBlock("系统消息", StrScript)
End Sub
上面的代码RegisterClientScriptBlock添加Java Script脚本弹出对话框。（其实Vb Script的对话框比Java Script的对话框多更多的显示和控制方式，但Netscape的浏览器不支持，大家可根据相应的项目在程序里选择用哪种脚本）。
