title image


Smiley Eigentlich ist das nur ne Frage des (Variablen)Typs
Hi,



du darfst die Datums (ich hofffe es heist Datums und nicht Datume, Pisa läßt grüßen)

nur nicht als Text definieren.



Ich hab das beispiel noch mal minimal geändert und da klappt es.

Denn ein Datum und Zeit ist ja auch nur ein fortlaufende Zahl.

Die dann wiederum richtig sortiert wird.

Komischerweise wird das Datum auch noch richtig dargestellt.

Da bin ich selbst überrascht dass das geht.







      

Option Explicit



Private Sub Form_Load()

Dim clmX As ColumnHeader

Dim itmX As ListItem

Dim i As Integer

    

ListView1.AllowColumnReorder = True

ListView1.Sorted = True

ListView1.View = lvwReport

For i = 1 To 3

   Set clmX = ListView1.ColumnHeaders.Add()

   clmX.Text = "Spalte" & i

Next i



' 10 Elemente mit dem gleichen Symbol der Liste hinzufügen



For i = 1 To 10

   Set itmX = ListView1.ListItems.Add()

'      itmX.SmallIcon = 1

   itmX.Text = "Listenelement " & i

   itmX.SubItems(1) = DateSerial(2006, 3, 30 - i)

   itmX.SubItems(2) = "Unterelement 2" & i

Next i

End Sub



Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)

   ListView1.SortKey = ColumnHeader.Index - 1

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0






Gruss Klapperstorch
----------------------------------------------------
Aus Felern lernt man oder...
Edjucashon isnt woerking

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: