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 |