Asp.Net1.1 DataGrid 双向排序

最新推荐文章于 2025-08-07 21:29:52 发布

转载最新推荐文章于 2025-08-07 21:29:52 发布 · 89 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/luqingfei/archive/2010/06/11/1756038.html

文章标签：

#ui

本文介绍了一个使用 ASP.NET 中 DataGrid 控件展示数据的具体实例。该示例通过创建 DataTable 并填充数据，然后绑定到 DataGrid 控件进行展示。此外，还实现了数据排序功能和性别字段的文本转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

前台代码

1             <asp:DataGrid id="DataGrid1" runat="server" AutoGenerateColumns="False" Width="496px" AllowSorting="True">
2                 <Columns>
3                     <asp:BoundColumn HeaderText="id" DataField="id" SortExpression="id"></asp:BoundColumn>
4                     <asp:BoundColumn HeaderText="name" DataField="name" SortExpression="name"></asp:BoundColumn>
5                     <asp:BoundColumn HeaderText="age" DataField="age" SortExpression="age"></asp:BoundColumn>
6                     <asp:BoundColumn HeaderText="sex" DataField="sex" SortExpression="sex"></asp:BoundColumn>
7                 </Columns>
8             </asp:DataGrid>
9

1     Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2         '在此处放置初始化页的用户代码
3         If Me.IsPostBack = False Then
4             BindDataGrid()
5         End If
6     End Sub
7
8     Private Function GetDatasource() As DataView
9         Dim dt As DataTable = New DataTable
10         dt.Columns.Add("id", GetType(System.Int32))
11         dt.Columns.Add("name", GetType(System.String))
12         dt.Columns.Add("age", GetType(System.Int32))
13         dt.Columns.Add("sex", GetType(System.Boolean))
14
15         Dim dr As DataRow
16         For i As Integer = 0 To 10
17             dr = dt.NewRow
18             dr(0) = i
19             dr(1) = "name" & i
20             dr(2) = 15 + 2 * i
21             dr(3) = i Mod 2
22             dt.Rows.Add(dr)
23         Next
24
25         Dim dv As DataView
26         dv = dt.DefaultView
27
28         If (IsNothing(Me.DataGrid1.Attributes("OrderBy")) = False) Then
29             dv.Sort = Me.DataGrid1.Attributes("OrderBy")
30         End If
31
32         Return dv
33     End Function
34
35     Private Sub BindDataGrid()
36         Me.DataGrid1.DataSource = GetDatasource()
37         Me.DataGrid1.DataBind()
38     End Sub
39
40
41     Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
42         If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
43             If e.Item.Cells(3).Text = "True" Then
44                 e.Item.Cells(3).Text = "男"
45             Else
46                 e.Item.Cells(3).Text = "女"
47             End If
48         End If
49     End Sub
50
51     Private Sub DataGrid1_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles DataGrid1.SortCommand
52         '找到排序的列，并修改它的排序属性
53         Dim clm As DataGridColumn = Nothing
54         For i As Integer = 0 To Me.DataGrid1.Columns.Count
55             If Me.DataGrid1.Columns(i).SortExpression = e.SortExpression Then
56                 clm = Me.DataGrid1.Columns(i)
57                 Exit For
58             End If
59         Next
60
61         If e.SortExpression.ToLower().IndexOf("desc") > 0 Then
62             clm.SortExpression = e.SortExpression.ToLower().Replace("desc", "asc")
63         ElseIf e.SortExpression.ToLower().IndexOf("asc") > 0 Then
64             clm.SortExpression = e.SortExpression.ToLower().Replace("asc", "desc")
65         Else
66             clm.SortExpression = e.SortExpression.ToLower() & " desc"
67         End If
68
69         Me.DataGrid1.Attributes("OrderBy") = clm.SortExpression
70
71         BindDataGrid()
72     End Sub
73

转载于:https://www.cnblogs.com/luqingfei/archive/2010/06/11/1756038.html