README.md

Description

It is nice technique for dbgrid sorting.You

can sort Dbgrid Columns by clicking on the grid column header

in two ways ascending or descending.

More Info

Sorted Records in dbgrid.

No Idea,

Submitted On
By	Adam Abas
Level	Unknown
User Rating	4.3 (39 globes from 9 users)
Compatibility	VB 4.0 (32-bit), VB 5.0, VB 6.0
Category	Databases/ Data Access/ DAO/ ADO
World	Visual Basic
Archive File

Source Code

Option Explicit
Dim st As Boolean
***********************
Private Sub DBGrid1_HeadClick(ByVal ColIndex As Integer)
'Dbgrid Columns sort by clicking the grid header in two way ascending and descending
 If st = True Then
 DBGrid1.HoldFields
 Data1.RecordSource = " Select * from Authors Order By " & DBGrid1.Columns(ColIndex).DataField
 Data1.Refresh
 DBGrid1.ReBind
 Else
 DBGrid1.HoldFields
 Data1.RecordSource = " Select * from Authors Order By " & DBGrid1.Columns(ColIndex).DataField & " DESC "
 Data1.Refresh
 DBGrid1.ReBind
 End If
 st = Not st
End Sub