DBGrid Sort
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.
AI
Tóm tắt bởi AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Mã nguồn
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
Bình luận gốc (3)
Được khôi phục từ Wayback Machine