• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• datagrid simply sort

datagrid simply sort

a simply sort on de collumsheaders of a datagrid

Inputs
a datarid,and a connection with a d-base

Returns
sort "asc" & "desc"

Rate datagrid simply sort

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

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