[Don K O'Tay]

I have searched for hours to find help in sorting columns in a datagrid. I mean by user, not at design time.
As far as I can see, none of the three grids available to vb6 have a sort facility to change columns to Ascending or Descending as in msAccess.
I think vb.Net has a method by clicking on column headers, but I use the old vb6.
Am I wasting my own and helpful advisers time by my efforts?
I will try something else if there is no way to sort my columns with my version of visual basic.
I wou ld rather not.

[KeyWiz]

in the _Click event capture the colum name then
re-sort the recordset using a SQL command similar to . . .

datPrimaryRS.RecordSource = "select All from My DataSource Sort By " & desiredSort
datPrimaryRS.Refresh

this will achieve your desired results

[bizchaplain]

Since the datagrid is populated from a recordset, here is the solution I've used. It may not be the best, and I'm open to ideas.
Given recordset "rs" and a field name of "xyz", the Datagrid sorts when you do the following:
rs.Sort = "xyz ASC" or rs.Sort = "xyz DESC"
(same as the ORDER BY clause)

I've put this example into a datagrid's HeadClick event to sort a column, and to toggle its direction on a second click:

	If ColIndex = prevSortCol Then
		If blnSortAsc Then
			strSort = strColumnName & " DESC "
			blnSortAsc = False
		Else
			strSort = strColumnName & " ASC "
			blnSortAsc = True
		End If
	Else
		strSort = strColumnName & " ASC"
		prevSortCol = ColIndex
		blnSortAsc = True
	End If
	rs.Sort = strSort
	With dg
		.Refresh
	End With

Some of the variables are Form-level, and you will want to populate them.
Charles

[Don K O'Tay]

KeyWiz, on 21 Mar, 2007 - 09:01 PM, said:

in the _Click event capture the colum name then
re-sort the recordset using a SQL command similar to . . .

datPrimaryRS.RecordSource = "select All from My DataSource Sort By " & desiredSort
datPrimaryRS.Refresh

this will achieve your desired results

Dear 'Key Wiz'

ref my question 21 mar 2007 post = 210725 - Along time ago!

Many thanks for your reply.

I was too impatient and did not give time for replies. I then went down a different route.

Yours Don K O'tay