Visual Basic - LISTBOX y ADDITEM

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Fco. Javier Medrano Salez

LISTBOX y ADDITEM

Publicado por Fco. Javier Medrano Salez (171 intervenciones) el 28/08/2005 02:23:46
Hola maestros.
soy novato y estoy haciendo una aplicación para mi escuela: Mediante una consula ADO, en un listbox añado las fechas en que un alumno tiene reportes; mi pregunta sería, cómo hago para que al insertar las fechas con additem, en primer lugar salga la fecha del último reporte y así en orden descendente. Ya lo tengo pero las fechas están ordenadas de la primera hasta la fecha más reciente, por lo que yo quiero acceder rápidamente a la fecha más reciente.
asi lo tengo asi lo necesito
01/08/05 16/08/05
09/08/05 11/08/05
11/08/05 09/08/05
16/08/05 01/08/05
Ojalá alguien resuelva mi duda, gracias
Paco
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:LISTBOX y ADDITEM

Publicado por Edgardo (16 intervenciones) el 31/08/2005 14:29:22
Lo ideal sería que desde la consulta ADO arreglaras el problema, hay una sentencia SQL que te permite ordenar los datos ascendente o descendentemente. Un ejemplo sería: "select * from fechas order by fecha desc". Recuerda usar el order by o no te andará. Otra manera es en visual, utilizando un for, leer toda la lista y luego invertirla:

Private Sub Command1_Click()
Dim Aux As String
For i = 0 To (List1.ListCount - 1) / 2
'utilizo una variable auxiliar
Aux = List1.List(i)
List1.List(i) = List1.List(List1.ListCount - (i + 1))
List1.List(List1.ListCount - (i + 1)) = Aux
Next i
End Sub

Pero es más razonable que lo hagas desde la consulta. Espero te sirva. Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar