重写gridview,支持list和dataset自动排序,带排序箭头,顺便把自动翻页也加进去了.

    首先说明gridview是支持自动翻页和排序的（地球人都知道...）, 但打多数开发情况数据源都是我们后台来绑定的，这样就不支持自动排序和翻页了。

    搜索到很多扩展gridview自动排序的，但到实际应用时发现有很多的不足，而且大多只支持dataset，要想支持list(of T)类型的泛类型的很少，自己写了个，记录一下。

 

1. Imports System
2. Imports System.Collections.Generic
3. Imports System.ComponentModel
4. Imports System.Text
5. Imports System.Web
6. Imports System.Web.UI
7. Imports System.Web.UI.WebControls
8. Imports System.Data
9. Imports System.Reflection
10. Imports Logonexpress.DataService
12. <ToolboxBitmap(GetType(GridView)), ToolboxData("<{0}:GridView runat=server></{0}:GridView>")> _
13. Public Class GridView
14.     Inherits WebControls.GridView
16.     Public Delegate Sub BindHandler()
17.     Private data As Object
19.     Public Property DataSetSource() As Object    '定义数据源
21.         Get
22.             If data IsNot Nothing Then
23.                 Return data
24.             End If
25.             Return Nothing
26.         End Get
27.         Set(ByVal value As Object)
28.             Me.data = value
29.         End Set
30.     End Property
32.     '排序字段
33.     Protected Property SortExpressionStr() As String
34.         Get
35.             Return ViewState("SortExpression")
36.         End Get
37.         Set(ByVal value As String)
38.             ViewState("SortExpression") = value
39.         End Set
40.     End Property
42.     '获取排序表达式
43.     Protected ReadOnly Property SortExpressionEx() As String
44.         Get
45.             If SortExpressionStr Is Nothing Then Return Nothing
46.             Return Me.SortExpressionStr + " " + Me.SortDirectionStr
47.         End Get
48.     End Property
50.     '获取排序方向
51.     Protected Property SortDirectionStr() As String
52.         Get
53.             If ViewState("SortDirection") Is Nothing Then
54.                 Return "DESC"
55.             End If
57.             If ViewState("SortDirection").ToString.ToLower = "asc" OrElse ViewState("SortDirection").ToString.ToLower = "desc" Then
58.                 Return ViewState("SortDirection")
59.             End If
61.             Return "DESC"
62.         End Get
63.         Set(ByVal value As String)
64.             ViewState("SortDirection") = value
65.         End Set
66.     End Property
68.     '第一次翻页要还原排序方向,因为排序后我们就改变了排序方向,翻页时会重新绑定,所以要还原上一次的排序状态
69.     Private Property IsPaging() As Boolean
70.         Get
71.             Return ViewState("IsPaging")
72.         End Get
73.         Set(ByVal value As Boolean)
74.             ViewState("IsPaging") = value
75.         End Set
76.     End Property
78.     <Category("Appearance")> _
79.     <Editor("System.Web.UI.Design.ImageUrlEditor", GetType(System.Drawing.Design.UITypeEditor))> _
80.     <Description("设置升序图标"), Browsable(True)> _
81.     Public Property AscendingImageUrl() As String
82.         Get
83.             If ViewState("SortImageAsc") IsNot Nothing Then
84.                 Return ViewState("SortImageAsc")
85.             End If
86.             Return ""
87.         End Get
88.         Set(ByVal value As String)
89.             ViewState("SortImageAsc") = value
90.         End Set
91.     End Property
93.     <Category("Appearance")> _
94.     <Editor("System.Web.UI.Design.ImageUrlEditor", GetType(System.Drawing.Design.UITypeEditor))> _
95.     <Description("设置降序图标"), Browsable(True)> _
96.      Public Property DescendingImageUrl() As String
97.         Get
98.             If ViewState("SortImageDesc") IsNot Nothing Then
99.                 Return ViewState("SortImageDesc")
100.             End If
101.             Return ""
102.         End Get
103.         Set(ByVal value As String)
104.             ViewState("SortImageDesc") = value
105.         End Set
106.     End Property
108.     '重写OnRowCreateed来设置排序图标
109.     Protected Overrides Sub OnRowCreated(ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
110.         If e.Row.RowType = DataControlRowType.Header Then
111.             If Me.SortExpressionEx <> "" OrElse Me.SortExpressionEx <> String.Empty Then
112.                 ShowSortImage(e.Row)
113.             End If
114.         End If
115.     End Sub
117.     Private Sub ShowSortImage(ByVal row As GridViewRow)
118.         For Each tc As TableCell In row.Cells
119.             If tc.Controls.Count > 0 And TypeOf tc.Controls(0) Is LinkButton Then
120.                 Dim st As String = DirectCast(tc.Controls(0), LinkButton).CommandArgument
121.                 If st = Me.SortExpressionStr Then
122.                     Dim img As New System.Web.UI.WebControls.Image
123.                     img.ImageUrl = IIf(Me.SortDirectionStr = "ASC", Me.AscendingImageUrl, Me.DescendingImageUrl)
124.                     tc.Controls.Add(img)
125.                     Exit Sub
126.                 End If
127.             End If
129.         Next
130.     End Sub
132.     '重写排序方法
133.     Protected Overrides Sub OnSorting(ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs)
134.         Me.SortExpressionStr = e.SortExpression
135.         IsPaging = True
136.         RaiseEvent GetBindData()
138.         If Me.SortDirectionStr.ToLower = "asc" Then
139.             Me.SortDirectionStr = "DESC"
140.         Else
141.             Me.SortDirectionStr = "ASC"
142.         End If
144.     End Sub
146.     '顺便重写一下翻页方法,之后只要在代码中允许翻页就可以了
147.     Protected Overrides Sub OnPageIndexChanging(ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs)
148.         If Me.IsPaging Then
149.             SortDirectionStr = IIf(SortDirectionStr = "ASC", "DESC", "ASC")
150.             IsPaging = False
151.         End If
152.         Me.PageIndex = e.NewPageIndex
153.         RaiseEvent GetBindData()
154.     End Sub
156.     '获得数据源
157.     Public Event GetBindData()
159.     '重点：如果是List(of T)类型的数据源,就要把T类型传过来,在排序接口中使用
160.     Public Sub OnBind(Of T)(Optional ByVal pageIndex As Integer = 0)
162.         If Me.data IsNot Nothing Then
164.             If SortExpressionStr = Nothing Then
165.                 Me.DataSource = data
166.                 Me.DataBind()
167.                 Exit Sub
168.             End If
170.             Select Case data.GetType.ToString
171.                 Case GetType(DataSet).ToString
172.                     Dim dv As DataView = DirectCast(data, DataSet).Tables(0).DefaultView
173.                     dv.Sort = Me.SortExpressionEx
175.                 Case GetType(DataTable).ToString
176.                     Dim dv As DataView = DirectCast(data, DataTable).DefaultView
177.                     dv.Sort = Me.SortExpressionEx
179.                 Case Else
180.                     Dim perwr As New PredicateWrapper()
181.                     perwr.PropertyName = Me.SortExpressionStr
182.                     perwr.IsAsc = Me.SortDirectionStr.ToUpper = "ASC"
183.                     DirectCast(data, List(Of T)).Sort(AddressOf perwr.Comparsion(Of T))
185.             End Select
187.             Me.DataSource = data
188.             Me.PageIndex = pageIndex
189.             Me.DataBind()
191.         End If
193.     End Sub
195. End Class

List排序类

1. Imports Logonexpress.DataService
3. Public Class PredicateWrapper
5.     Public PropertyName As String
6.     Public IsAsc As Boolean
8.     Public Sub New()
10.     End Sub
12.     Public Sub New(ByVal propertyname As String, ByVal isAsc As Boolean)
13.         propertyname = propertyname
14.         isAsc = isAsc
15.     End Sub
17.     Public Function Comparsion(Of T)(ByVal x As T, ByVal y As T) As Integer
18.         If x Is Nothing AndAlso y Is Nothing Then
19.             Return 0
20.         ElseIf x Is Nothing Then
21.             Return -1
22.         ElseIf y Is Nothing Then
23.             Return 1
24.         End If
26.         Dim getter As MemberGetDelegate = MemberAccessor.Instance.GetterDelegate(GetType(T), PropertyName)
27.         Dim vx As Object = getter(x)
28.         Dim vy As Object = getter(y)
29.         Dim result1 As Integer = comparer.Default.Compare(vx, vy)
30.         If result1 <> 0 Then
31.             If Not IsAsc Then
32.                 Return Not result1
33.             Else
34.                 Return result1
35.             End If
36.         End If
38.         Return 0
39.     End Function
42. End Class

 说明: 部分命名空间和类是引用公司的.

 

之后只要在代码中添加：Gridview就已经支持List和Dataset数据源的排序和分页了。

1.     Protected Sub GridView1_GetBindData() Handles GridView1.GetBindData
2.         Me.GridView1.DataSetSource = GetDb.GetDb
3.         Me.GridView1.OnBind(Of DataTable)()
4.     End Sub