Advertisement
C_Volume2 Databases/ Data Access/ DAO/ ADO #79885

datagrid simply sort

a simply sort on de collumsheaders of a datagrid

AI

Riepilogo 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.

Codice sorgente
original-source
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
  With AdoBoeken.Recordset
    If (.Sort = .Fields(ColIndex).[Name] & " Asc") Then
      .Sort = .Fields(ColIndex).[Name] & " Desc"
    Else
      .Sort = .Fields(ColIndex).[Name] & " Asc"
    End If
  End With
End Sub
Commenti originali (3)
Recuperato da Wayback Machine