vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: 2 Fehler beim Auslesen aus einer Listbox 
Autor: STFX
Datum: 12.07.05 08:12
Entschuldigung ich habe da was verwechselt...


Nun ja dein Problem ist ein Denkfehler (denk ich mal).

Ich Tippe auf das 
For a = a To lv.Anz
Wenn das der Fehler ist dann solltest du den Code so ändern: 
If anzahl > 0 Then
                For I1 as Integer = 0 To Me.IstListe.SelectedItems.Count
                    lv.Rec = I1 'Ich habe keine Ahnung was diese Zeile soll 
                    ' aber ich habe sie einfach mal übernommen
                    Dim split As String() = IstListe.items(i1).ToString.Split("" & _
                      "")
                    For J1 = 0 To split.GetUpperBound(0)
                       If Not split(J1) = "" Then
                            If lv.PNr.Trim = split(j).Trim Then
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 1) = _
                                  lv.PNr
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 2) = _
                                lv.KTx
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 3) = _
                                lv.PoA
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 4) = _
                                lv.HKZ
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 5) = _
                                lv.LvM
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 6) = _
                                lv.EH
                                If Not lv.EH = "" Then
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                      7) = "0"
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                    8) = "0"
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                    9) = "0"
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                    10) = "0"
                                End If
                                curRow += 1
                             ElseIf lv.PNr.StartsWith(split(i)) Then
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 1) = _
                                  lv.PNr
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 2) = _
                                lv.KTx
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 3) = _
                                lv.PoA
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 4) = _
                                lv.HKZ
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 5) = _
                                lv.LvM
                                CType(xlBlatt.Cells, Excel.Range)(curRow, 6) = _
                                lv.EH
                                If Not lv.EH = "" Then
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                      7) = "0"
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                    8) = "0"
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                    9) = "0"
                                    CType(xlBlatt.Cells, Excel.Range)(curRow, _
                                    10) = "0"
                                End If
                                curRow += 1
                            End If
                        End If
                    Next j
                    'Fortschrittsbalken erhöhen
                    ProgressBarEXE.Value += 1
                Next i
End If
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
2 Fehler beim Auslesen aus einer Listbox891jokybordaux11.07.05 11:23
Re: 2 Fehler beim Auslesen aus einer Listbox494STFX11.07.05 11:32
Re: 2 Fehler beim Auslesen aus einer Listbox480jokybordaux11.07.05 11:44
Re: 2 Fehler beim Auslesen aus einer Listbox507STFX12.07.05 08:12
Re: 2 Fehler beim Auslesen aus einer Listbox438jokybordaux12.07.05 12:57
Fehler beim Auslesen gefunden500jokybordaux12.07.05 16:08
Re: Fehler beim Auslesen gefunden496ModeratorFZelle12.07.05 17:26

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel