Kurs-Record

Public Struct KursStruct
  ID As Integer
  Fach As String
  Kurslehrer As String
End Struct

----------------------
' Gambas class file

Public Const MAX_KURSE As Integer = 6

Public Struct SchuelerStruct
  Jahrgangsstufe As Integer
  GebDatum As Date
  Nachname As String
  DG1Kurs As String
  DG2Kurs As String
End Struct

Public Liste As Struct SchuelerStruct
Public ListeArray[3] As Struct SchuelerStruct
Public iIndex As Integer = 0

Public Sub Form_Open()
  FMain.Center
  FMain.Resizable = False
  FMain.Arrangement = Arrange.Fill
End ' Form_Open()

Public Sub btnNew_Click()
  txbNachname.Clear
  dbGebDatum.Value = "6/1/1995"
End ' btnNew_Click()

Public Sub btnSave_Click()  
  Liste.Jahrgangsstufe = cmbJGS.Text
  Liste.Nachname = txbNachname.Text
  Liste.GebDatum = dbGebDatum.Value
  Liste.DG1Kurs = cmbDGF1.Text
  Liste.DG2Kurs = cmbDGF2.Text
  ListeArray[iIndex] = Liste
  Inc iIndex
End ' btnSave_Click()

Public Sub Button3_Click()
  Dim iCount As Integer
  Dim vElement As Variant

  For Each vElement In ListeArray
  For iCount = 0 To iIndex - 1
      Print ListeArray[iIndex].Nachname
      Print Liste.Jahrgangsstufe
      Print Liste.GebDatum
      Print Liste.DG1Kurs
      Print Liste.DG2Kurs
  Next
  Next 

End

----------------------