Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer) On Error Resume Next Static TmpFlag As Boolean
SaveColIndex = ColIndex If TmpFlag Then Adodc1.Recordset.Sort = TDBGrid1.Columns(ColIndex).DataField TmpFlag = False Else Adodc1.Recordset.Sort = TDBGrid1.Columns(ColIndex).DataField & " DESC" TmpFlag = True End If End Sub