[技巧]DataGrid列排序

[复制链接]

AZ猫

2552 主题	15 听众	3161 积分

管理员

Rank: 75

性别: 男
听众数: 15
买家信用
卖家信用
在线时间: 1426 小时
相册: 0

发表于 2006-6-4 21:20:00 |显示全部楼层

[sell=30] <%@ Import Namespace="System.Data" %> <html> <s cript language="VB" runat="server"> Dim SortField As String Function CreateDataSource() As ICollection Dim dt As DataTable Dim dr As DataRow Dim i As Integer '创建数据表 dt = New DataTable dt.Columns.Add(New DataColumn("整数值", GetType(Integer))) dt.Columns.Add(New DataColumn("字符串值", GetType(String))) dt.Columns.Add(New DataColumn("日期时间值", GetType(DateTime))) dt.Columns.Add(New DataColumn("布尔值", GetType(Boolean))) dt.Columns.Add(new DataColumn("货币值", GetType(Double))) '生成一些行，并在其中放置一些示例数据 For i = 1 To 9 dr = dt.NewRow() dr(0) = 9-i dr(1) = "项 " & i.ToString() dr(2) = DateTime.Now.ToShortTimeString If (i Mod 2 <> 0) Then dr(3) = True Else dr(3) = False End If dr(4) = 1.23 * (i + 1) '向数据表中添加行 dt.Rows.Add(dr) Next '向数据表返回 DataView Dim dv as DataView = New DataView(dt) dv.Sort = SortField CreateDataSource = dv End Function Sub Page_Load(sender As Object, e As EventArgs) If Not IsPostBack Then If SortField = "" Then SortField = "整数值" End If BindGrid End If End Sub Sub MyDataGrid_Sort(sender As Object, e As DataGridSortCommandEventArgs) SortField = e.SortExpression BindGrid End Sub Sub BindGrid() MyDataGrid.DataSource = CreateDataSource() MyDataGrid.DataBind End Sub </s cript> <body> <h3>DataGrid 中的基本排序</h3> <form runat=server> <ASP:DataGrid id="MyDataGrid" runat="server" AllowSorting="true" OnSortCommand="MyDataGrid_Sort" BorderColor="black" BorderWidth="1" CellPadding="3" Font-Name="宋体" Font-Size="8pt" HeaderStyle-BackColor="#ccccff" HeaderStyle-ForeColor="black" /> </form> </body> </html> [/sell] [修改时间：2006-6-4 21:20:01 修改人：AZ猫等级：站长]

ASP.NET源码下载专区

ASP.NET CMS源码下载专区

ASP.NET快速开发框架下载专区

Asp.net视频教程,asp.net教程,文档下载

JQuery插件,Jquery教程,Jquery ui

ASP.NET Extjs 系列专区

ASP.NET Entity Framework 系列专区

ASP.NET MVC 系列专区

使用道具举报