Sorting in GridView using VB.NET

Private Const ASCENDING = " ASC"

Private Const DESCENDING = " DESC"

Public Property GridViewSortDirection() As SortDirection

Get

If ViewState("sortDirection") Is Nothing Then

ViewState("sortDirection") = SortDirection.Ascending

End If

Return DirectCast(ViewState("sortDirection"), SortDirection)

End Get

Set

ViewState("sortDirection") = value

End Set

End Property

Protected Sub GridView1_Sorting(sender As Object, e As GridViewSortEventArgs)

Dim sortExpression As String = e.SortExpression

If GridViewSortDirection = SortDirection.Ascending Then

GridViewSortDirection = SortDirection.Descending

SortGridView(sortExpression, DESCENDING)

Else

GridViewSortDirection = SortDirection.Ascending

SortGridView(sortExpression, ASCENDING)

End If

End Sub

Private Sub SortGridView(sortExpression As String, direction As String)

' You can cache the DataTable for improving performance

Dim dt As DataTable = GetData().Tables(0)

Dim dv As New DataView(dt)

dv.Sort = sortExpression & direction

GridView1.DataSource = dv

GridView1.DataBind()

End Sub

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

Akash Salunkhe9y ago
Hi Thiruppathi R,

GetData() is sub in my program. I'm getting error on that.
Kindly reply back
Thiruppathi R9y ago
Private Const ASCENDING = " ASC"
Private Const DESCENDING = " DESC"
Public Property GridViewSortDirection() As SortDirection
Get
If ViewState("sortDirection") Is Nothing Then
ViewState("sortDirection") = SortDirection.Ascending
End If
Return DirectCast(ViewState("sortDirection"), SortDirection)
End Get
Set
ViewState("sortDirection") = value
End Set
End Property
Protected Sub GridView1_Sorting(sender As Object, e As GridViewSortEventArgs)
Dim sortExpression As String = e.SortExpression
If GridViewSortDirection = SortDirection.Ascending Then
GridViewSortDirection = SortDirection.Descending
SortGridView(sortExpression, DESCENDING)
Else
GridViewSortDirection = SortDirection.Ascending
SortGridView(sortExpression, ASCENDING)
End If
End Sub
Private Sub SortGridView(sortExpression As String, direction As String)
' You can cache the DataTable for improving performance
Dim dt As DataTable = GetData().Tables(0)
Dim dv As New DataView(dt)
dv.Sort = sortExpression & direction
GridView1.DataSource = dv
GridView1.DataBind()
End Sub