Public Function loadListView(ByVal tower As Boolean, ByVal Weitergeb As _
  Boolean, ByVal Kommission As Boolean) As Integer
            Dim Array() As String
            Dim tempray() As String
 
            Dim i As Integer
            Dim temp As String
 
            If tower = True Then
                Me.ListViewTower.Items.Clear()
                Me.ListViewTower.Columns.Clear()
 
                Array = Split(Webservice.getListItem(saveKAnr, True, False, _
                  False), vbCrLf)
 
                Me.ListViewTower.Columns.Add("ArtikelNr", 60, _
                  HorizontalAlignment.Left)
                Me.ListViewTower.Columns.Add("Bescheibung", 80, _
                HorizontalAlignment.Left)
                Me.ListViewTower.Columns.Add("Maschine", 80, _
                HorizontalAlignment.Left)
                Me.ListViewTower.Columns.Add("ChargenNr", 160, _
                HorizontalAlignment.Left)
 
                For i = 0 To Array.Length - 1
 
                    temp = Array(i)
                    tempray = Split(temp, ";")
                    If Not temp.Length <= 0 Then
 
                        Dim lvi As ListViewItem = New ListViewItem(tempray(1))
                        lvi.SubItems.Add(tempray(2))
                        lvi.SubItems.Add(tempray(3))
                        lvi.SubItems.Add(tempray(0))
 
                        ListViewTower.Items.Add(lvi)
 
                    End If
                Next
 
                ListViewTower.View = View.Details
 
            End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Ralf