ASP.NET (VB) Maintain sorting with paging (GridView)

[dr.satman]

I'm currently trying write code that will maintain the sorting preference while changing page on a GridView. My current code is working fine to sort the data based on the user sorting selection. But when changing page, the sorting doesn't work. I don't get an error but rather unsorted results.Here's my aspx code:\[code\]<asp:GridView ID="tblAdministrators" runat="server" AutoGenerateColumns="false" EmptyDataText="No records found" PageSize="75" AllowPaging="True" AllowSorting="True"> <Columns> <asp:BoundField HeaderText="Name" InsertVisible="False" DataField="FULLNAME" SortExpression="FULLNAME"></asp:BoundField> </Columns> <Columns> <asp:BoundField HeaderText="Active" InsertVisible="False" DataField="ACTIVE" SortExpression="ACTIVE"></asp:BoundField> </Columns></asp:GridView>\[/code\]Here's my VB code:\[code\]Public Class ViewUsersInherits SolutionBasePageProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then 'GetDataTable() tblAdministrators.DataSource = GetData() tblAdministrators.DataBind() End IfEnd SubPrivate Const ASCENDING As String = " ASC"Private Const DESCENDING As String = " DESC"Private Function GetData() As Data.DataView Dim connection As OracleDBConnect = DAL.GetOracleDBConnection() Dim request As OracleDBRequest = Nothing Dim result As OracleDBResult = Nothing Dim trace As OracleDBChronoTrace = Nothing Dim status As DBStatus Dim sb As New StringBuilder Dim dv As DataView Dim ds As Data.DataSet = New Data.DataSet Try With sb .Append("SELECT FULLNAME, ACTIVE FROM USERS") End With request = New OracleDBRequest(sb.ToString, CommandType.Text) status = connection.Execute(request, result, trace) dv = New DataView(result.DataSet.Tables(0)) If (ViewState("sortExp") IsNot Nothing) Then dv = New Data.DataView(result.DataSet.Tables(0)) If (GridViewSortDirection = SortDirection.Ascending) Then GridViewSortDirection = SortDirection.Descending dv.Sort = CType(ViewState("sortExp") & DESCENDING, String) Else GridViewSortDirection = SortDirection.Ascending dv.Sort = CType(ViewState("sortExp") & ASCENDING, String) End If Else dv = result.DataSet.Tables(0).DefaultView End If Return dv Catch ex As Exception Finally 'ds.Dispose() 'dp.Dispose() End TryEnd FunctionPublic Property GridViewSortDirection() As SortDirection Get If ViewState("sortDir") Is Nothing Then ViewState("sortDir") = SortDirection.Ascending End If Return CType(ViewState("sortDir"), SortDirection) End Get Set(ByVal value As SortDirection) ViewState("sortDir") = value End SetEnd PropertyProtected Sub tblAdministrators_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles tblAdministrators.PageIndexChanging tblAdministrators.PageIndex = e.NewPageIndex tblAdministrators.DataSource = GetData() tblAdministrators.DataBind()End SubProtected Sub tblAdministrators_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles tblAdministrators.Sorting ViewState("sortExp") = e.SortExpression tblAdministrators.DataSource = GetData() tblAdministrators.DataBind()End Sub\[/code\]End Class