Ordenar Datagrid haciendo click en la cabecera

Iniciado por ANTRAX, Julio 26, 2010, 11:47:56 AM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Julio 26, 2010, 11:47:56 AM Ultima modificación: Julio 08, 2011, 10:30:40 AM por ANTRAX
Código: vb
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    With Adodc1.Recordset
        If (.Sort = .Fields(ColIndex).[Nombre] & " Asc") Then
            .Sort = .Fields(ColIndex).[Nombre] & " Desc"
        Else
            .Sort = .Fields(ColIndex).[Nombre] & " Asc"
        End If
    End With
End Sub