title image


Smiley Re: Brauche Tipp: Daten in einem ListView verändern! Wie?
Hallo,



ich empfehle eine eindeutige Key jedem Eintrag zu geben.

Damit kann man sehr einfach dessen Daten rauslesen und ändern.



Private Sub Form_Load()   Dim lNum As Long   ' 10 Einträge erstellen   For lNum = 0 To 9      ' Eintrag erstellen      With ListView1.ListItems.Add         ' !!! Wichtig für später !!! (Eindeutige Identifikation)         .Key = "Eintrag " & lNum         ' Daten der Eintrags         .Text = lNum & ".1"         .SubItems(1) = lNum & ".2"         .SubItems(2) = lNum & ".3"         .SubItems(3) = lNum & ".4"         .SubItems(4) = lNum & ".5"      End With   Next lNumEnd SubPrivate Sub Command1_Click()   ' Eintrag 2 wird geändert   With ListView1.ListItems.Item("Eintrag 2")      .Text = "Änderung: " & .Text      .SubItems(1) = "Änderung " & .SubItems(1)      .SubItems(2) = "Änderung " & .SubItems(2)      .SubItems(3) = "Änderung " & .SubItems(3)      .SubItems(4) = "Änderung " & .SubItems(4)   End WithEnd SubPrivate Sub Command2_Click()   Dim lNum  As Long   Dim sData As String   sData = "Einträge:"   ' Alle Einträge durchgehen   For lNum = 1 To ListView1.ListItems.Count      With ListView1.ListItems.Item(lNum)         ' Liste aufbauen         sData = sData & vbCrLf & .Text & " : " & .SubItems(1) & _                                          " : " & .SubItems(2) & _                                          " : " & .SubItems(3) & _                                          " : " & .SubItems(4)      End With   Next lNum   ' Liste ausgeben   MsgBox sDataEnd Sub

Mit freundlichen Grüßen

AndyG

E-Mail:  Andreas_Graf [öt] DevPlanet.de
Homepage:  http://www.DevPlanet.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: