الرئيسية › 6_2008-2009 › DBGrid Sort
Advertisement
6_2008-2009 Databases/ Data Access/ DAO/ ADO #194995

DBGrid Sort

Adam Abas
★★★★★
4.8 · التحميلات: 2,341

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

ملخص الذكاء الاصطناعي: 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.

كود المصدر
original-source 
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