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
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.
소스 코드
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 Upload Upload
원본 댓글 (3)
Wayback Machine에서 복구됨