27/03/2005, 12:45
|
 | | | Fecha de Ingreso: febrero-2005 Ubicación: Venezuela
Mensajes: 524
Antigüedad: 20 años, 1 mes 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 |