| Usuario |
hola amigos ayuda con LISTVIEW ayu... |
Desconocido
|
| Enviado - 6/9/2004 |
| |
Hola, mi problema
Tengo un Form con un ListView en el ke muestro los datos de una Tabla de una BD y kiero ordenar los datos por campo haciendo click en el encabezado del campo (nombre del campo en el ListView).
Porfavor si alguien puede ayudarme con alguna ejemplo o algo
estoy cansado de busca y no encuentro nada que me ayude
ayuda a todos los que sepan algo
Saludos.... |
| |
|
nostromo
389 Mensaje(s)
|
| Enviado - 7/9/2004 |
| |
Hola;
Busca en:
1-
http://www.mundoprogramacion.com/vb/bases/ADO/indiceADO.htm
2-
http://www.mundoprogramacion.com/vb/VB_DB.HTM
3-
http://www.mundoprogramacion.com/vb/ejemplos/indiceControles.htm
4-
http://www.planet-source-code.com/
Suerte.
Nos vemos. |
| |
|
fmarredo
486 Mensaje(s)
|
| Enviado - 7/9/2004 |
| |
En un módulo:
Public Sub OrdenaLvw(Lista As ListView, Columna As ColumnHeader)
Static blnAsc As Boolean
Static ColAnt As Integer
On Error GoTo Errores
NoRefresh Lista, True
Lista.SortKey = Columna.Index - 1
If ColAnt = Columna.Index Then
blnAsc = Not blnAsc
Else
blnAsc = True
End If
If blnAsc Then
Lista.SortOrder = lvwAscending
Else
Lista.SortOrder = lvwDescending
End If
Lista.Sorted = True
ColAnt = Columna.Index
NoRefresh Lista, False
On Error GoTo 0
Exit Sub
Errores:
MsgBox "OrdenaLvw::Error " & Err.Number & ": " & Err.Description
Exit Sub
Depura:
Resume
End Sub
MODO DE USO:
Por ej en el evento ColumnClickde un list view llamado lvwLista:
Private Sub lvwLista_ColumnClick(ByVal ColumnHeader As ColumnHeader)
OrdenaLvw lvwLista, ColumnHeader
End Sub
|
| |
|
