Private Sub CreateBindings()
 
        'Einrichtung der Bindungen zwischen Datasét und Controls
 
        With Formulardaten
 
            bsTexte.DataSource = .Tables(Formulartexte)
 
            With .Tables(Formulartexte)
                'Labels und Textboxen erstellen / binden
                For i As Integer = 0 To .Columns.Count - 3
                    tbos(i).DataBindings.Clear()
                    tbos(i).DataBindings.Add("Text", bsTexte, .Columns( _
                      i).ColumnName)
                Next i
            End With
 
            cboVerfahren.DataSource = .Tables(Verfahren)
            cboVerfahren.DisplayMember = Verfahren
            cboVerfahren.DataBindings.Clear()
            cboVerfahren.DataBindings.Add("SelectedIndex", bsTexte, Verfahren)
 
            cboSäulenraster.DataSource = .Tables(Säulenraster)
            cboSäulenraster.DisplayMember = Säulenraster
            cboSäulenraster.DataBindings.Clear()
            cboSäulenraster.DataBindings.Add("SelectedIndex", bsTexte, _
              Säulenraster)
 
            dgv.DataSource = bsGrid
            bsGrid.DataSource = .Tables(Weichschichtdaten)
 
        End With
    End Sub
 
    Private Sub TextBox_KeyDown(ByVal sender As Object, e As KeyEventArgs)
 
        'Die Return-Taste schließt Texteingaben ab und verschiebt den Fokus
        If e.KeyCode = Keys.Return Then
            bsTexte.EndEdit()
            'Index der aktuell bearbeiteten Textbox 
            Dim index As Integer = CInt(DirectCast(sender, TextBox).Tag)
            'Fokus verschieben
            If index < tbos.Count - 1 Then
                tbos(index + 1).Focus()
            Else
                tbos(0).Focus()
            End If
        End If
    End Sub
 
    Private Sub btnSpeichern_Click(sender As Object, _
                    e As System.EventArgs) Handles btnSpeichern.Click
        bsTexte.EndEdit() : bsGrid.EndEdit()
        Formulardaten.WriteXml(FormularFile, XmlWriteMode.WriteSchema)
    End Sub
 
    Private Sub btnLaden_Click(sender As Object, _
                    e As System.EventArgs) Handles btnLaden.Click
 
        If IO.File.Exists(FormularFile) Then
            'Geladene Daten verwerfen
            Formulardaten.Dispose()
            Formulardaten = New DataSet
            'Daten aus Datei lesen
            Formulardaten.ReadXml(FormularFile)
            'Bindungen erstellen
            CreateBindings()
        End If
    End Sub
 
    Private Sub dgv_DataError(sender As Object, _
        e As System.Windows.Forms.DataGridViewDataErrorEventArgs) _
        Handles dgv.DataError
 
        'Falsche Eingabe abfangen (kein numerischer Wert)
        MsgBox(e.Exception.Message)
        e.Cancel = True
    End Sub