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

最新推荐文章于 2025-12-13 17:41:29 发布

原创最新推荐文章于 2025-12-13 17:41:29 发布 · 603 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#datagrid #asp.net #asp #exception #sql server #dataset

VS.Net 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了Asp.NET中DataGrid控件的使用，包括将其做成可分页、可排序及添加选择功能。连接SQL Server 2000数据库获取数据视图，利用SortCommand事件排序，用模板列加CheckBox实现选择，还给出了HTML代码、后台代码及获取用户选择记录的代码。

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

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

HTML：
l 添加一个DataGrid，命名为dgOrder。
l 添加了一个模板列，模板列里放一个名为Cb的CheckBox控件。此列用来实现选择
l 为要排序的每个列加上排序表达式SortExpression。
l 利用列的DataFormatString来格式化列，象DataFormatString="{0:d}"显示日期格式。
l 设置PageSize="15"每页显示15行数据，AllowPaging="True" 为允许分页。

整个HTML页代码：
<form id="Form1" method="post" runat="server">

<asp:datagrid id="dgOrder" runat="server" Height="515px" Width="718px" AutoGenerateColumns="False" AllowSorting="True" CellPadding="4" BorderWidth="1px" BorderColor="#A0ABEB" PageSize="15" BorderStyle="Solid" BackColor="White" GridLines="Vertical" ForeColor="Black" AllowPaging="True" ShowFooter="True">

<asp:TemplateColumn>

<asp:CheckBox id="Cb" runat="server"></asp:CheckBox></FONT>

</ItemTemplate>

</asp:TemplateColumn>

<asp:BoundColumn DataField="orderid" SortExpression="orderid" HeaderText="ID">

</asp:BoundColumn>

<asp:BoundColumn DataField="ShipCountry" SortExpression="ShipCountry" HeaderText="ShipCountry">

</asp:BoundColumn>

<asp:BoundColumn DataField="ShippedDate" SortExpression="ShippedDate" HeaderText="ShippedDate" DataFormatString="{0:d}">

</asp:BoundColumn>

<asp:BoundColumn DataField="Freight" SortExpression="Freight" HeaderText="Freight">

</asp:BoundColumn>

<asp:BoundColumn DataField="ShipAddress" SortExpression="ShipAddress" HeaderText="ShipAddress">

</asp:BoundColumn>

</Columns>

</asp:datagrid>

</form>

后台代码：

得到数据视图，参数为要排序的列
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 = "<script language=javascript>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 += "被选择！')</script>"
        RegisterClientScriptBlock("系统消息", StrScript)
    End Sub
上面的代码RegisterClientScriptBlock添加Java Script脚本弹出对话框。（其实Vb Script的对话框比Java Script的对话框多更多的显示和控制方式，但Netscape的浏览器不支持，大家可根据相应的项目在程序里选择用哪种脚本）。