datagrid simply sort
a simply sort on de collumsheaders of a datagrid
AI
AI Summary: 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.
Source Code
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
Original Comments (3)
Recovered from Wayback Machine