Tema: FAQ's de VB6
Ver Mensaje Individual
  #49 (permalink)  
Antiguo 27/03/2005, 12:45
Avatar de vbx3m
vbx3m
 
Fecha de Ingreso: febrero-2005
Ubicación: Venezuela
Mensajes: 524
Antigüedad: 19 años, 8 meses
Puntos: 1
Ordenar Datagrid haciendo click en la cabecera

Código:
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
...
__________________
ホルヘ・ラファエル・マルティネス・レオン

Última edición por vbx3m; 10/05/2006 a las 12:22