源码网,源码论坛,源码之家,商业源码,游戏源码下载,discuz插件,棋牌源码下载,精品源码论坛

 找回密码
 立即注册
查看: 226|回复: 24

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

[复制链接]

7万

主题

861

回帖

32万

积分

论坛元老

Rank: 8Rank: 8

积分
329525
发表于 2007-2-10 00:00:00 | 显示全部楼层 |阅读模式
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页代码:  
复制代码 代码如下:
<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">  
<SelectedItemStyle ForeColor="White" BackColor="Black"></SelectedItemStyle>  
<AlternatingItemStyle BackColor="#EEEEEE"></AlternatingItemStyle>  
<HeaderStyle HorizontalAlign="Center" ForeColor="White" BorderColor="#6876C5" BackColor="#6876C5"></HeaderStyle>  
<FooterStyle ForeColor="White" BackColor="#6876C5"></FooterStyle>  
<Columns>  
<asp:TemplateColumn>  
<ItemTemplate>  
<FONT face="宋体">  
<asp:CheckBox id="Cb" runat="server"></asp:CheckBox></FONT>  
</ItemTemplate>  
</asp:TemplateColumn>  
<asp:BoundColumn DataField="orderid" SortExpression="orderid" HeaderText="ID">  
<HeaderStyle Width="180px"></HeaderStyle>  
</asp:BoundColumn>  
<asp:BoundColumn DataField="ShipCountry" SortExpression="ShipCountry" HeaderText="ShipCountry">  
<HeaderStyle Width="180px"></HeaderStyle>  
</asp:BoundColumn>  
<asp:BoundColumn DataField="ShippedDate" SortExpression="ShippedDate" HeaderText="ShippedDate" DataFormatString="{0:d}">  
<HeaderStyle Width="180px"></HeaderStyle>  
</asp:BoundColumn>  
<asp:BoundColumn DataField="Freight" SortExpression="Freight" HeaderText="Freight">  
<HeaderStyle Width="180px"></HeaderStyle>  
</asp:BoundColumn>  
<asp:BoundColumn DataField="ShipAddress" SortExpression="ShipAddress" HeaderText="ShipAddress">  
<HeaderStyle Width="480px"></HeaderStyle>  
</asp:BoundColumn>  
</Columns>  
<PagerStyle HorizontalAlign="Center" ForeColor="Black" Position="TopAndBottom" BackColor="White" Mode="NumericPages"></PagerStyle>  
</asp:datagrid>  
</form>  

   

后台类添加以下代码:  

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 = "<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的浏览器不支持,大家可根据相应的项目在程序里选择用哪种脚本)。 
总结: 
DataGrid是我们常用的Web 控件,有时我们还可以和DataList混合使用,通过修改HTML页,可以达到好的页面效果。上面只是一个例子,为了便于清楚整个过程,我把数据访问部分(SQL)写到了页面中。在软件开发中,我们一般把访问数据的部分写成数据层,页面调用数据层得到数据,这样逻辑清晰,修改和维护都很方便。
回复

使用道具 举报

4

主题

1万

回帖

60

积分

注册会员

Rank: 2

积分
60
发表于 2022-8-25 05:02:53 | 显示全部楼层
的沙发水电费水电费
回复 支持 反对

使用道具 举报

1

主题

2万

回帖

176

积分

注册会员

Rank: 2

积分
176
发表于 2022-10-26 17:56:18 | 显示全部楼层
给爸爸爸爸爸爸爸爸爸爸八佰伴八佰伴
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-3-12 21:28:56 | 显示全部楼层
看看怎么样再说
回复 支持 反对

使用道具 举报

3

主题

2万

回帖

156

积分

注册会员

Rank: 2

积分
156
发表于 2023-5-20 13:28:58 | 显示全部楼层
来看看怎么样
回复 支持 反对

使用道具 举报

1

主题

2万

回帖

182

积分

注册会员

Rank: 2

积分
182
发表于 2023-8-24 21:26:59 | 显示全部楼层
啊啊啊啊啊啊啊啊啊啊啊啊啊啊
回复 支持 反对

使用道具 举报

1

主题

2万

回帖

93

积分

注册会员

Rank: 2

积分
93
发表于 2023-9-2 06:51:42 | 显示全部楼层
还可以不错
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-9-16 01:16:39 | 显示全部楼层
天天源码社区论坛
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

61

积分

注册会员

Rank: 2

积分
61
发表于 2023-10-9 09:48:07 | 显示全部楼层
先把创新班才能下班才能下班
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2024-3-10 02:18:15 | 显示全部楼层
sdsadsadsadf
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies

本版积分规则

手机版|小黑屋|网站地图|源码论坛 ( 海外版 )

GMT+8, 2025-1-21 08:43 , Processed in 0.080105 second(s), 26 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表