日期:2010-05-12  浏览次数:20642 次

  

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.SqlCl
ient

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

  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
word=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_SortCo
mmand(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 DataGridI