让Asp.NET的DataGrid可排序、可选择、可分页
网人帝国添加时间：2003-11-2512:54:45人气：71
DataGrid是Asp.NET中的一个重要的控件，经常我们都将DataGrid做成可分页的和可排序的，有时还需要加上选择功能。这些都是经常需要用到的方法，其实是比较简单的。
设计思路：
为了方便起见，我们连接SQLServer2000的NorthWind数据库的Orders表，从数据库里得到此表的数据视图。利用DataGrid的SortCommand事件实现排序。用一个模板列加上CheckBox控件实现选择。可用DataGrid的属性生成器的“分页”选项或者自己修改HTML实现分页。
HTML：
添加一个DataGrid，命名为dgOrder。
添加了一个模板列，模板列里放一个名为Cb的CheckBox控件。此列用来实现选择
为要排序的每个列加上排序表达式SortExpression。
利用列的DataFormatString来格式化列，象DataFormatString="{0:d}"显示日期格式。
设置PageSize="15"每页显示15行数据，AllowPaging="True"为允许分页
。
整个HTML页代码：
<formid="Form1"method="post"runat="server">
<asp:datagridid="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">
<SelectedItemStyleForeColor="White"BackColor="Black"></SelectedItemStyle>
<AlternatingItemStyleBackColor="#EEEEEE"></AlternatingItemStyle>
<HeaderStyleHorizontalAlign="Center"ForeColor="White"BorderColor="#6876C5"BackColor="#6876C5"></HeaderStyle>
<FooterStyleForeColor="White"BackColor="#6876C5"></FooterStyle>
<Columns>
<asp:TemplateColumn>
<ItemTemplate>
<FONTface="宋体">
<asp:CheckBoxid="Cb"runat="server"></asp:CheckBox></FONT>
</ItemTemplate>
</asp:TemplateColumn>
<asp:BoundColumnDataField="orderid"SortExpression="orderid"HeaderText="ID">
<HeaderStyleWidth="180px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumnDataField="ShipCountry"SortExpression="ShipCountry"HeaderText="ShipCountry">
<HeaderStyleWidth="180px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumnDataField="ShippedDate"SortExpression="ShippedDate"HeaderText="ShippedDate"DataFormatString="{0:d}">
<HeaderStyleWidth="180px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumnDataField="Freight"SortExpression="Freight"HeaderText="Freight">
<HeaderStyleWidth="180px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumnDataField="ShipAddress"SortExpression="ShipAddress"HeaderText="ShipAddress">
<HeaderStyleWidth="480px"></HeaderStyle>
</asp:BoundColumn>
</Columns>
<PagerStyleHorizontalAlign="Center"ForeColor="Black"Position="TopAndBottom"BackColor="White"Mode="NumericPages"></PagerStyle>
</asp:datagrid>
</form>
后台类添加以下代码：
ImportsSystem.Data.SqlClient
'得到数据视图，参数为要排序的列
PrivateFunctionGetDv(ByValstrSortAsString)AsDataView
'定义数据库连接
DimdvAsDataView
DimCNAsNewSqlConnection()
Try
'初始化连接字符串
CN.ConnectionString="datasource=pmserver;initialcatalog=Northwind;persist
securityinfo=False;userid=sa;Password=sa;"
CN.Open()
'从NorthWind得到orders表的数据
DimadpAsSqlDataAdapter=NewSqlDataAdapter("select*from
orders",CN)
DimdsAsNewDataSet()
adp.Fill(ds)
'得到数据视图
dv=ds.Tables(0).DefaultView
CatchexAsException
#IfDEBUGThen
Session("Error")=ex.ToString()
Response.Redirect("../error.aspx")'跳转程序的公共错误处理页面
#EndIf
Finally
'关闭连接
CN.Close()
EndTry
'排序
dv.Sort=strSort
Returndv
EndFunction
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
HandlesMyBase.Load
IfNotIsPostBackThen
ViewState("strSort")="orderid"
dgOrder.DataSource=GetDv(ViewState("strSort").ToString())
dgOrder.DataBind()
EndIf
EndSub
'排序
PrivateSubdgOrder_SortCommand(ByValsourceAsObject,ByValeAs
System.Web.UI.WebControls.DataGridSortCommandEventArgs)HandlesdgOrder.SortCommand
dgOrder.CurrentPageIndex=0
'得到排序的列
ViewState("strSort")=e.SortExpression.ToString()
dgOrder.DataSource=GetDv(ViewState("strSort").ToString())
dgOrder.DataBind()
EndSub
'分页
PrivateSubdgOrder_PageIndexChanged(ByValsourceAsObject,ByVal
eAsSystem.Web.UI.WebControls.DataGridPageChangedEventArgs)Handles
dgOrder.PageIndexChanged
'得到分页的页号
dgOrder.CurrentPageIndex=e.NewPageIndex
dgOrder.DataSource=GetDv(ViewState("strSort").ToString())
dgOrder.DataBind()
EndSub
运行结果如下图所示：(点击列标头可以排序)
为了知道用户选择的是哪些记录，我们可以利用DataGridItem的FindControl得到CheckBox的值，我们来添加一个按钮，再写如下代码：
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAs
System.EventArgs)HandlesButton1.Click
DimitemAsDataGridItem
DimStrScriptAsString
StrScript="<scriptlanguage=javascript>alert('"
'循环表格的项，FindControl
ForEachitemInMe.dgOrder.Items
IfCType(item.FindControl("cb"),System.Web.UI.WebControls.CheckBox).Checked
Then
Try
StrScript+=item.Cells(1).Text&Space(2)
CatchexAsException
EndTry
EndIf
Next
StrScript+="被选择！')</script>"
RegisterClientScriptBlock("系统消息",StrScript)
EndSub
上面的代码RegisterClientScriptBlock添加JavaScript脚本弹出对话框。（其实VbScript的对话框比Java
Script的对话框多更多的显示和控制方式，但Netscape的浏览器不支持，大家可根据相应的项目在程序里选择用哪种脚本）。
总结：
DataGrid是我们常用的Web控件，有时我们还可以和DataList混合使用，通过修改HTML页，可以达到好的页面效果。上面只是一个例子，为了便于清楚整个过程，我把数据访问部分(SQL)写到了页面中。在软件开发中，我们一般把访问数据的部分写成数据层，页面调用数据层得到数据，这样逻辑清晰，修改和维护都很方便。
当前位置：
