Datagrid sorting

[Simon]

I have read most messages in regard with this topic, and have tried
every measure suggested. I'm still haveing problem to get it to work.
Basically, the page just reloaded as before when I clicked on the
header link.
Here is the code :
*************** *************** *************** *************** ************
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page here
Dim lastSortOrder As String
Dim lastSortColumn As String

daStaffList.Fil l(dsStaffList)

If Not IsPostBack Then
ViewState("Last SortOrder") = "ASC"
ViewState("Last SortColumn") = "LastName"
dvStaffList.Sor t = "LastName" & " " & " ASC"
daStaffList.Fil l(dsStaffList)
dgStaffList.Dat aBind()
End If
End Sub

Private Sub dgStaffList_Sor tCommand(ByVal source As Object, ByVal
e As System.Web.UI.W ebControls.Data GridSortCommand EventArgs) Handles
dgStaffList.Sor tCommand
Dim newSortColumn = e.SortExpressio n.ToString()
Dim newSortOrder = "ASC" 'Default value
Dim lastSortColumn = ViewState("Last SortColumn")
Dim lastSortOrder = ViewState("Last SortOrder")
If (newSortColumn. Equals(lastSort Column) And
lastSortOrder.E quals("ASC")) Then
newSortOrder = "DESC"
End If

ViewState("Last SortOrder") = newSortOrder
ViewState("Last SortColumn") = newSortColumn

dvStaffList.Sor t = newSortColumn & " " & newSortOrder
daStaffList.Fil l(dsStaffList)
dgStaffList.Dat aBind()

End Sub
*************** *************** *************** *************** *************** ***

Any help is appreciated

Simon

[Blaise Pascal Tine]

Hi Simon,

Could you verify that you have the following methods registered under
InitializeCompo nent(); ?

this.dgStaffLis t.SortCommand += new
System.Web.UI.W ebControls.Data GridSortCommand EventHandler(th is.dgStaffList_ S
ortCommand);

Thanks,
Blaise Pascal Tine (MSFT)
--------------------

From: wa***@arts.endo w.gov (Simon)
Newsgroups: microsoft.publi c.dotnet.framew ork.aspnet
Subject: Datagrid sorting
Date: 27 Jun 2003 06:59:33 -0700
Organization : http://groups.google.com/
Lines: 50
Message-ID: <ef************ **************@ posting.google. com>
NNTP-Posting-Host: 63.169.191.3
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: posting.google. com 1056722373 18471 127.0.0.1 (27 Jun 2003 13:59:33 GMT)X-Complaints-To: gr**********@go ogle.com
NNTP-Posting-Date: 27 Jun 2003 13:59:33 GMT
Path: cpmsftngxa06.ph x.gbl!TK2MSFTNG P08.phx.gbl!new sfeed00.sul.t-online.de!t-onlin
e.de!news-spur1.maxwell.s yr.edu!news.max well.syr.edu!sn-xit-03!sn-xit-01!sn-
xit-09!supernews.co m!postnews1.goo gle.com!not-for-mailXref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.framew ork.aspnet:1554 29
X-Tomcat-NG: microsoft.publi c.dotnet.framew ork.aspnet

I have read most messages in regard with this topic, and have tried
every measure suggested. I'm still haveing problem to get it to work.
Basically, the page just reloaded as before when I clicked on the
header link.
Here is the code :
************** *************** *************** *************** *************
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventAr gs) Handles MyBase.Load
'Put user code to initialize the page here
Dim lastSortOrder As String
Dim lastSortColumn As String

daStaffList.Fil l(dsStaffList)

If Not IsPostBack Then
ViewState("Last SortOrder") = "ASC"
ViewState("Last SortColumn") = "LastName"
dvStaffList.Sor t = "LastName" & " " & " ASC"
daStaffList.Fil l(dsStaffList)
dgStaffList.Dat aBind()
End If
End Sub

Private Sub dgStaffList_Sor tCommand(ByVal source As Object, ByVal
e As System.Web.UI.W ebControls.Data GridSortCommand EventArgs) Handles
dgStaffList.So rtCommand
Dim newSortColumn = e.SortExpressio n.ToString()
Dim newSortOrder = "ASC" 'Default value
Dim lastSortColumn = ViewState("Last SortColumn")
Dim lastSortOrder = ViewState("Last SortOrder")
If (newSortColumn. Equals(lastSort Column) And
lastSortOrder. Equals("ASC")) Then
newSortOrder = "DESC"
End If

ViewState("Last SortOrder") = newSortOrder
ViewState("Last SortColumn") = newSortColumn

dvStaffList.Sor t = newSortColumn & " " & newSortOrder
daStaffList.Fil l(dsStaffList)
dgStaffList.Dat aBind()

End Sub
************** *************** *************** *************** *************** * ***
Any help is appreciated

Simon

[Simon Wang]

No, I don't have that method registered.
How would I do that ? and where this code goes?
Thanks
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!