Imprimir Página - Ordenar Datagrid haciendo click en la cabecera

Título: Ordenar Datagrid haciendo click en la cabecera
Publicado por: ANTRAX en Julio 26, 2010, 11:47:56 AM

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

Underc0de

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 11:47:56 AM