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