' (1)
        For row As Integer = 0 To _lines.count - 1
          EdiMapping = Profil.getEdiSegCols(Satzart, Filter)
          TEdiFieldsList = MapContentsOfImportedEdiFile(line, EdiMapping)
          EdiFile.Add(TEdiFieldsList) 'New List(Of 
          ' clsEDI_FileImportMappingClass))
' Man sollte nun annehmen, dass DebugEdiItems(EdiFile(row)) identische 
' Datensätze ausgibt
' Dies ist nicht der Fall. Vielmehr entspricht jeder empfangene Datensatz exakt 
' der gemappten Zeile in der Datei:
          DebugEdiItems(EdiFile(row))
        Next
' AUßERHALB der Schleife führt derselbe Durchlauf mit derselben Variable zu 
' einem identischen Ergebnis. Warum ???
' (2)
        For row As Integer = 0 To EdiFile.Count - 1
          DebugEdiItems(EdiFile(row))
        Next

' (3)
    Private Sub DebugEdiItems(ByVal EdiFileRefs As List(Of _
      clsEDI_FileImportMappingClass))
        For Each obj As clsEDI_FileImportMappingClass In EdiFileRefs
            Dim sout As String : sout = ""
            sout = "SEGMENT: " & obj.SATZART & " | FELD-NR.:" & obj.EDI_FELD_NR _
              & " | CONTENTS: " & obj.INHALT.ToString
            Debug.Print(sout)
        Next
    End Sub

__________________


Heute ist nicht mein Tag.