Module Beispiel
 
    Structure Meldungen
        'Jede ID darf nur einmal vergeben werden
        '(in der Liste darf nicht zweimal die selbe Zahl sein)
        Dim ID                  As System.Int32
        Dim Liste_Maßnahmen     As System.Collections.Generic.List(Of Maßnahmen)
 
 
        Dim Standort	     As System.String
        Dim Erstelldatum     As System.Datetime
        Dim Auftragstyp	     As System.String
        Dim Meldung	     As System.String
        Dim TPMKarte         As System.String	
        Dim Anlage	     As System.String
        Dim Arbeitsfolge     As System.String
        Dim gemeldetvon	     As System.String
        Dim abgestellt	     As System.Datetime
        Dim erledigt         As System.Boolean
        Dim AuftragsartID    As System.Int32
        Dim MaschinenID	     As System.Int32 
        Dim ArbeitsfolgeID   As System.Int32
    End Structure
 
    Structure Maßnahmen
        'Die JobID braucht hier nicht rein, weil diese Structure
        'als Member von der Structure struct_Meldungen verwendet werden soll.
        Dim TPMMeldungID     As System.Int32	
        Dim MaßnahmeDatum    As System.Datetime
        Dim Maßnahme         As System.String
        Dim Verantwortlich   As System.String	
        Dim TerminStart      As System.Datetime	
        Dim TerminEnde       As System.Datetime	
        Dim erledigt         As System.Datetime	
        Dim Status	     As System.String
        Dim Notizen	     As System.String
        Dim StatusID         As System.Int32
        Dim abgearbeitet     As System.Boolean
        Dim MaschinenID      As System.Int32
    End Structure
 
    Sub Beispiel_Meldungen()
        Dim Liste_Meldungen             As System.Collections.Generic.List(Of _
          Meldungen) = Nothing
        Dim Beispieleintrag_Meldung     As Meldungen = Nothing
        Dim Beispieleintrag_Maßnahmen1  As Maßnahmen = Nothing    
        Const BEISPIEL_ID               As System.Int32 = 123
 
 
        Liste_Meldungen = New System.Collections.Generic.List(Of Meldungen)
 
        Beispieleintrag_Meldung.ID = BEISPIEL_ID
        Beispieleintrag_Meldung.Liste_Maßnahmen = New _
          System.Collections.Generic.List(Of Maßnahmen)
        Beispieleintrag_Meldung.Erstelldatum    = System.DateTime.Now
 
        '************************************************************
        'Hier jetzt noch weitere Member von Structure Meldungen mit 
        ' Beispielwerten füllen
        '*************************************************************
 
        'Beispielwerte für  Structure Maßnahmen einfüllen
        Beispieleintrag_Maßnahmen1.MaschinenID = 178
        Beispieleintrag_Maßnahmen1.MaßnahmeDatum = System.DateTime.Now
 
        '************************************************************
        'Hier jetzt noch weitere Member von Structure Maßnahmen mit 
        ' Beispielwerten füllen
        '*************************************************************
 
        'Beispieleintrag_Maßnahmen1 in Liste_Meldungen eintragen
        Beispieleintrag_Meldung.Liste_Maßnahmen.Add(Beispieleintrag_Maßnahmen1)
 
         '************************************************************
        'Hier jetzt noch einen Breakpoint mit F9 hinsetzen, um die Ergebnisse 
        ' der Liste anzuschauen.
        '*************************************************************
        Dim Breakpoint As Integer = 0
 
 
 
    End Sub
 
 
 
End Module