by gubo (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: Visual Basic 5.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (6 Votes)
a simply sort on de collumsheaders of a datagrid
Inputs
a datarid,and a connection with a d-base
Code Returns
sort "asc" & "desc"
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