Listview füllen und leeren

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von schnorklunder.

    Listview füllen und leeren

    Hallo Leute,

    ich komme bei folgendem Problem nicht weiter.

    Bei Button.Click Ereignis:

    -Programm schreibt den Inhalt der 3 Textboxen in vorhandene Excel Datei (funktioniert)
    -Programm gibt gerade den Inhalt der Excel Tabelle in Listview wieder aus (funktioniert auch)

    Sobald ich jedoch den 2. Eintrag über Button 2 bestätige, füllt sich das Listview doppelt...

    Beispiel auf 1 Spalte reduziert:

    Textbox1.text = Hallo --> Button.Click
    ---> Ausgabe in Listview =
    Hallo

    Textbox1.text = Welt ---> Button.Click
    ---> Ausgabe in Listview =
    Hallo
    Hallo
    Hallo
    Welt

    Ich dachte es wäre logisch, dann zuerst die Listview.Items.Clear() auszuführen und dann erst die Eintragungen zu machen, aber irgendwie klappt das nicht so, wie ich mir das dachte.
    Vielleicht ist auch der Ort des Befehls falsch, ich weiß es nicht ...

    Anbei mal mein Code:

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop
    3. Public Class Form1
    5. Private MyLine As Integer = 1
    7. Private Sub cmdButton1_Click(sender As System.Object, e As System.EventArgs) Handles cmdButton1.Click
    9. ListView1.Items.Clear() 'Dachte, das ich das so lösen könnte...Geht aber nicht
    11. ' Textboxeinträge in vorhandene Excel Tabelle eintragen
    13. Dim xlObj As New Excel.Application
    14. xlObj.Visible = True
    15. Dim Mappe As Excel.Workbook = xlObj.Workbooks.Open("C:...\Test2.xlsx")
    16. Dim Tabelle As Excel.Worksheet = Mappe.Sheets("Tabelle1")
    17. Tabelle.Cells(MyLine, 1).Value = txtBox1.Text
    18. Tabelle.Cells(MyLine, 2).Value = txtBox2.Text
    19. Tabelle.Cells(MyLine, 3).Value = txtBox3.Text
    20. MyLine += 1
    22. Mappe.Save()
    23. Mappe.Close()
    24. xlObj.Quit()
    26. 'Wenn Wert vorhanden, dann Wert aus Excel auslesen und in Listview eintragen
    28. If ZelleGefuellt() = True Then
    30. For Each Xitem In ExcelRowlist
    32. Dim lvitem As ListViewItem
    33. lvitem = Me.ListView1.Items.Add(Xitem.C1)
    34. lvitem.SubItems.AddRange(New String() {Xitem.C2, Xitem.C3})
    35. Next
    36. End If
    38. End Sub
    40. ' zu generierende Spalten
    42. Private Structure ExcelRows
    43. Dim C1 As String
    44. Dim C2 As String
    45. Dim C3 As String
    46. End Structure
    48. 'Liste, in die die generierten Spalten eingetragen werden
    50. Private ExcelRowlist As List(Of ExcelRows) = New List(Of ExcelRows)
    53. Private Function ZelleGefuellt() As Boolean
    55. Dim Completed As Boolean = False
    57. 'Öffnen
    59. Dim MyExcel As New Excel.Application
    60. MyExcel.Workbooks.Open("C:\...\Test2.xlsx")
    63. 'Daten aus Excel einlesen
    65. MyExcel.Sheets("Tabelle1").activate()
    66. MyExcel.Range("A1").Activate()
    68. Dim ThisRow As New ExcelRows
    70. Do
    71. If MyExcel.ActiveCell.Value > Nothing Or MyExcel.ActiveCell.Text > Nothing Then
    73. ThisRow.C1 = MyExcel.ActiveCell.Value
    74. MyExcel.ActiveCell.Offset(0, 1).Activate()
    76. ThisRow.C2 = MyExcel.ActiveCell.Value
    77. MyExcel.ActiveCell.Offset(0, 1).Activate()
    79. ThisRow.C3 = MyExcel.ActiveCell.Value
    81. ExcelRowlist.Add(ThisRow)
    83. MyExcel.ActiveCell.Offset(1, -2).Activate()
    84. Else
    85. Completed = True
    86. Exit Do
    87. End If
    88. Loop
    90. 'Schließen
    92. MyExcel.Workbooks.Close()
    93. MyExcel = Nothing
    95. Return Completed
    97. End Function
    99. End Class


    Ich hoffe ihr versteht was ich da versuche und könnt mir auf die Sprünge helfen.

    Viele Grüße

    Stefan

    schnorklunder schrieb:

    VB.NET-Quellcode

    1. MyLine += 1

    Du musst MyLine wieder auf Null oder Deinen Wert setzen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich weiß nicht, ob ich deinen Hinweis richtig verarbeitet habe, aber die Umsetzung hat erstmal noch nichts gebracht.

    VB.NET-Quellcode

    1. Private Sub cmdButton1_Click(sender As System.Object, e As System.EventArgs) Handles cmdButton1.Click
    3. ''ListView1.Items.Clear(Xitem.C1)
    5. ' Textboxeinträge in vorhandene Excel Tabelle eintragen
    6. Dim xlObj As New Excel.Application
    7. xlObj.Visible = True
    8. Dim Mappe As Excel.Workbook = xlObj.Workbooks.Open("C:\Users\Lappi-Schnork\Desktop\Test2.xlsx")
    9. Dim Tabelle As Excel.Worksheet = Mappe.Sheets("Tabelle1")
    10. Tabelle.Cells(MyLine, 1).Value = txtBox1.Text
    11. Tabelle.Cells(MyLine, 2).Value = txtBox2.Text
    12. Tabelle.Cells(MyLine, 3).Value = txtBox3.Text
    13. MyLine += 1
    15. MyLine = 1 ' 1. Versuch an dieser Stelle
    16. Mappe.Save()
    17. Mappe.Close()
    18. xlObj.Quit()
    20. MyLine = 1 ' 2.Versuch an dieser Stelle
    21. ...


    MyLine = 0 lässt er nicht zu (sicher weil es Spalte 0 nicht gibt) und an den beiden gezeigten Positionen hat es keinen Einfluss.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „schnorklunder“ ()

    Setz doch einen Haltepunkt an den Beginn der Prozedur und sieh Dir an, was beim Debuggen passiert.
    Du musst natürlich Excel gleichzeitig beobachten.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Es scheint wirklich nur ein Problem in der Darstellung zu geben, denn die Werte werden korrekt in die Excel Datei eingespeichert.

    Nur ist die Ausgabe in der Listview nicht korrekt...

    Beim schrittweisen debuggen sieht eigentlich fast alles gut aus. Ich habe irgendwie die Vermutung, dass es an diesem Teil liegt

    VB.NET-Quellcode

    1. If ZelleGefuellt() = True Then
    3. For Each Xitem In ExcelRowlist
    5. Dim lvitem As ListViewItem
    6. lvitem = Me.ListView1.Items.Add(Xitem.C1)
    7. lvitem.SubItems.AddRange(New String() {Xitem.C2, Xitem.C3})
    8. Next
    9. End If


    Er addet nicht nur das neu die letzten beiden durch Button.Click eingetragenen Werte zur Listview, sondern lässt zusätzlich auch den alten Eintrag in der Listview stehen.

    Leider kann ich das nicht einfach verhindern, indem ich als erstes Ereignis beim Button.Click "Excel.Rowlist.Clear()" eingebe...

    Hat jemand eine Idee, wie ich das verbessern kann?

    Mach mal Option Strict On und erkläre mal bitte, was Dein Code machen soll.
    UNd dann überlegen wir, ob das, was da steht, Deiner Beschreibung entspricht oder nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Guten Morgen Rod,

    ok dann zuerst die Erklärung, was gemacht werden soll.

    1. Der Inhalt der Textboxen 1-3 soll in eine vorhandene Excel-Tabelle eingetragen werden (funktioniert)
    2. Gleichzeitig soll die Tabelle wieder ausgelesen werden, und jeden neuen Eintrag in der Listview anzeigen (Der Anwender soll quasi seine Eingaben direkt in der Listview wiederfinden)

    Zu Option Strict On:

    gibt mir einige unschöne Meldungen, die ich versuche auszumerzen, so schon gelungen bei

    Dim Tabelle As Excel.Worksheet = CType(Mappe.Sheets("Tabelle1"), Excel.Worksheet)
    ...
    CStr(MyExcel.ActiveCell.Value)

    Beides waren Programmvorschläge und was anderes wüsste ich nicht zu machen.

    Allerdings bleiben 3 Einträge vom Typ "Option Strict On lässt spätes Binden nicht zu" übrig, wo ich nicht weiß, wie ich das korrigieren kann.


    Tabelle.Cells(MyLine, 1).Value = txtBox1.Text
    Tabelle.Cells(MyLine, 2).Value = txtBox2.Text
    Tabelle.Cells(MyLine, 3).Value = txtBox3.Text

    Die Zeilen stammen aus folgendem Code-Teil:

    VB.NET-Quellcode

    1. Private Sub cmdButton1_Click(sender As System.Object, e As System.EventArgs) Handles cmdButton1.Click
    3. ' Textboxeinträge in vorhandene Excel Tabelle eintragen
    5. Dim xlObj As New Excel.Application
    6. xlObj.Visible = True
    7. Dim Mappe As Excel.Workbook = xlObj.Workbooks.Open("C:\...\Test2.xlsx")
    8. Dim Tabelle As Excel.Worksheet = CType(Mappe.Sheets("Tabelle1"), Excel.Worksheet)
    9. Tabelle.Cells(MyLine, 1).Value = txtBox1.Text
    10. Tabelle.Cells(MyLine, 2).Value = txtBox2.Text
    11. Tabelle.Cells(MyLine, 3).Value = txtBox3.Text
    12. MyLine += 1
    14. Mappe.Save()
    15. Mappe.Close()
    16. xlObj.Quit()


    Wie kriegen wir die 3 Fehler ausgemerzt? Tabelle ist ja definiert, MyLine auch (Private MyLine As Integer = 1)

    OK. Mit Excel ist das so eine Sache und die Table.Values sind nicht von ohne, da mach mal Option Strict wieder auf Off.
    Spätes Binden:
    Die Variable nicht als Object, sondern asl Excel.Irgendwas deklarieren, das zeigt er an, wenn Du mit der Maus drauf bist.
    Kannst Du bitte mal den ganzen Code hochpacken, da seh ich vielleicht mehr als so.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop
    3. Public Class Form1
    5. Private MyLine As Integer = 1
    7. Private Sub cmdButton1_Click(sender As System.Object, e As System.EventArgs) Handles cmdButton1.Click
    9. ' Textboxeinträge in vorhandene Excel Tabelle eintragen
    11. Dim xlObj As New Excel.Application
    12. xlObj.Visible = True
    13. Dim Mappe As Excel.Workbook = xlObj.Workbooks.Open("C:\...\Test2.xlsx")
    14. Dim Tabelle As Excel.Worksheet = CType(Mappe.Sheets("Tabelle1"), Excel.Worksheet)
    15. Tabelle.Cells(MyLine, 1).Value = txtBox1.Text
    16. Tabelle.Cells(MyLine, 2).Value = txtBox2.Text
    17. Tabelle.Cells(MyLine, 3).Value = txtBox3.Text
    18. MyLine += 1
    21. Mappe.Save()
    22. Mappe.Close()
    23. xlObj.Quit()
    26. 'Wenn Wert vorhanden, dann Wert aus Excel auslesen und in Listview eintragen
    27. If ZelleGefuellt() = True Then
    29. For Each Xitem In ExcelRowlist
    31. Dim lvitem As ListViewItem
    32. lvitem = Me.ListView1.Items.Add(Xitem.C1)
    33. lvitem.SubItems.AddRange(New String() {Xitem.C2, Xitem.C3})
    34. Next
    35. End If
    37. End Sub
    38. ' zu generierende Spalten für die Listview
    39. Private Structure ExcelRows
    40. Dim C1 As String
    41. Dim C2 As String
    42. Dim C3 As String
    43. End Structure
    44. 'Liste, in die die generierten Spalten eingetragen werden
    46. Private ExcelRowlist As List(Of ExcelRows) = New List(Of ExcelRows)
    49. Private Function ZelleGefuellt() As Boolean
    52. Dim Completed As Boolean = False
    54. 'Excel öffnen
    55. Dim MyExcel As New Excel.Application
    56. Dim Mappe As Excel.Workbook = MyExcel.Workbooks.Open("C:\...\Test2.xlsx")
    57. Dim Tabelle As Excel.Worksheet = CType(Mappe.Sheets("Tabelle1"), Excel.Worksheet)
    60. 'Daten aus Excel einlesen
    62. MyExcel.Range("A1").Activate()
    64. Dim ThisRow As New ExcelRows
    66. Do
    67. If CStr(MyExcel.ActiveCell.Value) > Nothing Or CStr(MyExcel.ActiveCell.Text) > Nothing Then
    69. ThisRow.C1 = CStr(MyExcel.ActiveCell.Value)
    70. MyExcel.ActiveCell.Offset(0, 1).Activate()
    72. ThisRow.C2 = CStr(MyExcel.ActiveCell.Value)
    73. MyExcel.ActiveCell.Offset(0, 1).Activate()
    75. ThisRow.C3 = CStr(MyExcel.ActiveCell.Value)
    77. ExcelRowlist.Add(ThisRow)
    78. MyExcel.ActiveCell.Offset(1, -2).Activate()
    79. Else
    80. Completed = True
    81. Exit Do
    82. End If
    83. Loop
    85. 'Excel schließen
    87. MyExcel.Workbooks.Close()
    88. MyExcel = Nothing
    90. Return Completed
    92. End Function
    94. End Class


    Hoffe es ist genügend auskommentiert.

    Habe eventuell eine neue Vermutung...Zeile 62. Vielleicht fügt er deshalb zu viele Zeilen in die Listview (weil er immer wieder von vorne anfängt) Kann aber auch woanders dran liegen :/

    In den beiden Prozeduren hast Du 2 verschiedene Instanzen auf die Tabelle, die sich beißen, wenn Excel offen ist und nicht ersetzt werden soll.
    Teste mal Dein Programm, wenn die Datei in Excel geöffnet ist.
    Im ListView kommt bei mir nix an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RodFromGermany“ ()

    Ich habe es mal einfacher versucht und die Excel-Durchsuch-Prozedur mal rausgelassen und bin zur Lösung des Problems gekommen (denke ich) ;)

    VB.NET-Quellcode

    1. Private Sub cmdButton1_Click(sender As System.Object, e As System.EventArgs) Handles cmdButton1.Click
    3. ' Textboxeinträge in vorhandene Excel Tabelle eintragen
    5. Dim xlObj As New Excel.Application
    6. xlObj.Visible = True
    7. Dim Mappe As Excel.Workbook = xlObj.Workbooks.Open("C:\Users\Lappi-Schnork\Desktop\Test2.xlsx")
    8. Dim Tabelle As Excel.Worksheet = CType(Mappe.Sheets("Tabelle1"), Excel.Worksheet)
    9. Tabelle.Cells(MyLine, 1).Value = txtBox1.Text
    10. Tabelle.Cells(MyLine, 2).Value = txtBox2.Text
    11. Tabelle.Cells(MyLine, 3).Value = txtBox3.Text
    12. MyLine += 1
    14. With ListView1.Items
    15. Dim item As ListViewItem
    16. item = .Add(txtBox1.Text)
    17. item.SubItems.Add(txtBox2.Text)
    18. item.SubItems.Add(txtBox3.Text)
    19. End With
    21. Mappe.Save()
    22. Mappe.Close()
    23. xlObj.Quit()
    25. End Sub


    Danke nochmal Rod!

    RodFromGermany schrieb:

    Im ListView kommt bei mir nix an.

    Der ListView bleibt immer noch leer.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Bei mir wird der ListView gefüllt, sowohl mit der Prozedur als auch in dem gekürzten Code.
    Dafür sind bei mir die folgenden Zeilen verantwortlich:

    VB.NET-Quellcode

    1. With ListView1.Items
    2. Dim item As ListViewItem
    3. item = .Add(txtBox1.Text)
    4. item.SubItems.Add(txtBox2.Text)
    5. item.SubItems.Add(txtBox3.Text)
    6. End With


    zum Excel-offen-Thema:

    Wenn die Datei geöffnet ist, wird es etwas kompliziert, da er dann eine Kopie vom Dokument erstellen will und das nicht Sinn der Sache ist.

    Spalten: Mein Fehler, ich hatte noch keine Spalten hinzugefügt.
    Ja, jetzt sieht es richtig gut aus.
    Probier mal, nur auf eine Instanz der Datei zuzugreifen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Probier mal, nur auf eine Instanz der Datei zuzugreifen.


    Du meinst, wenn bspw. nur etwas in Textbox1 steht und man beim nächsten Button.Click Ereignis nur etwas in Textbox2 einträgt?
    Das führt bisher dazu, dass unabhängig von dem Inhalt der Textboxen und der bisherigen Einträge stur die nächste Zeile beschrieben wird.

    Das ist für mich aber nicht weiter schlimm...Ich werde den Button.Click dann so gestalten, dass dieser erst benutzt werden kann, wenn alle 3 textboxen Werte beinhalten.

    In meinem Programm sollen auf der nächsten Form 2 DropDown Menüs zur Verfügung stehen, die den Inhalt der Listview Spalte 1 beinhalten. Erstmal muss ich mich aber mal umgucken, ob ich dazu was finde, ansonsten melde ich mich wieder mit einem neuen Thema :)

    Grüße

    Stefan

    Nein. Ich meine, dass es auch dann ordentlich funktioniert, wenn die Datei in Excel geöffnet ist, dann kannst Du Dir ggf. das ListView sparen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!