Datagrid ordenado..
Hola nuevamente fvomaster, sabes que tengo en un form un Datagrid, pero me gustaría que cuando le diera un clic al encabezado los datos se ordenaran por ese campo... ¿crees qué se pueda?
Gracias y saludos desde España.
nadaserio
Gracias y saludos desde España.
nadaserio
1 Respuesta
Respuesta de fvomaster
1
Me gustaría que por favor probaras el siguiente código, asumiendo que tu Datagrid se llama Datagrid1, y que está vinculado a un adodc1..
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
With Adodc1.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
Por favor adecúalo y pruébalo en tu pc, espero que te sirva..
Un cordial saludo desde Chile..
Fvomaster
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
With Adodc1.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
Por favor adecúalo y pruébalo en tu pc, espero que te sirva..
Un cordial saludo desde Chile..
Fvomaster
