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

        'Datenklasse
        Dim dtTexte As New DataTable
        dtTexte.TableName = "Meine Textbox_Daten"
 
        With dtTexte.Columns
            .Add("Flächenverhältnis", GetType(String))
            .Add("Säulenradius", GetType(Double))
            .Add("Belastung", GetType(Integer))
        End With
 
        dtTexte.Rows.Add("0.1", 0.4, 100)
 
        'Speichern     
        dtTexte.WriteXml("C:\daten\test.xml", XmlWriteMode.WriteSchema)
 
        dtTexte.Clear()
 
        'Laden
        dtTexte.ReadXml("C:\daten\test.xml")
 
        'Infrastruktur für Bindung
        Dim bsTexte As New BindingSource(dtTexte, Nothing)
 
 
        bsTexte.Position = 0
 
        'Datenbindung an Controls
        Dim txtFlächenverhältnis, txtSäulenRadius, txtBelastung As New TextBox
 
        txtFlächenverhältnis.DataBindings.Add("Text", bsTexte, _
          "Flächenverhältnis")
        txtSäulenRadius.DataBindings.Add("Text", bsTexte, "Säulenradius")
        txtBelastung.DataBindings.Add("Text", bsTexte, "Belastung")

  Dim dtCombo As New DataTable
  dtCombo.TableName = "CboC1_Items"
 
  With dtCombo.Columns
       .Add("CboItems", GetType(String))
  End With
 
  With dtCombo.Rows
       .Add("IT1")
       .Add("IT2")
       .Add("IT3")
  End With
 
 
  Dim cboC1 As New ComboBox
 
  Dim bsC1 As New BindingSource(dtCombo, Nothing)
  cboC1.DataSource = bsC1
  cboC1.DisplayMember = "CboItems"

Dim ds As New DataSet
ds.Tables.Add(dtCombo)
ds.Tables.Add(dtTexte)
ds.Tables.add(dtGrid)
 
ds.WriteXml("C:\daten\dataset.xml", XmlWriteMode.WriteSchema)

 Dim dtTexte As New DataTable
        dtTexte.TableName = "Geometrie und Säulenmaterial"
 
        With dtTexte.Columns
            .Add("Flächenverhältnis", GetType(Double))
            .Add("Säulenradius", GetType(Double))
            .Add("Aktivierungsaufweitung", GetType(Double))
            .Add("Dehnsteifigkeit", GetType(Double))
            .Add("Belastung", GetType(Double))
            .Add("Luftdruck", GetType(Double))
            .Add("Ohde", GetType(Double))
            .Add("Poisson", GetType(Double))
            .Add("Säulenabstand", GetType(Double))
            .Add("Scherfestigkeit", GetType(Double))
            .Add("Wichte", GetType(Double))
            .Add("Weichschicht", GetType(Double))
        End With
 
        dtTexte.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text,
                         TextBox4.Text, TextBox5.Text, TextBox6.Text, _
                           TextBox7.Text, TextBox8.Text, TextBox9.Text, _
                           TextBox10.Text, TextBox11.Text)
 
        Dim dtCombo As New DataTable
        dtCombo.TableName = "Auswahlboxen"
 
        With dtCombo.Columns
            .Add("Säulenraster", GetType(String))
            .Add("Verfahren", GetType(String))
        End With
 
        With dtCombo.Rows
            .Add(ComboBox3.SelectedItem)
            .Add(ComboBox2.SelectedItem)
        End With
 
        Dim cboC1 As New ComboBox
 
        Dim bsC1 As New BindingSource(dtCombo, Nothing)
        cboC1.DataSource = bsC1
        cboC1.DisplayMember = "Auswahlboxen"
 
 
        Dim dtDGV As New DataTable
        dtDGV.TableName = "Weichschichtdaten"
 
        With dtDGV.Columns
            .Add("Schichtdicke", GetType(Double))
            .Add("Steifemodul", GetType(Double))
            .Add("Kohäsion", GetType(Double))
            .Add("Scherfestigkeit", GetType(Double))
            .Add("Wichte", GetType(Double))
        End With
 
 
        With dtDGV.Rows
            .Add(dtDGV.Rows(0))
            .Add(dtDGV.Rows(1))
            .Add(dtDGV.Rows(2))
            .Add(dtDGV.Rows(3))
            .Add(dtDGV.Rows(4))
 
        End With
 
 
        Dim dgv As New DataGridView
 
        Dim dgvD1 As New BindingSource(dtDGV, Nothing)
        dgv.DataSource = dgvD1
        dgv.DataMember = "Weichschichtdaten"
 
 
 
        Dim ds As New DataSet
        ds.Tables.Add(dtCombo)
        ds.Tables.Add(dtTexte)
        ds.Tables.Add(dtDGV)
 
 
        ds.WriteXml("D:\dataset.xml", XmlWriteMode.WriteSchema)

Public Class frmFormularDatenSpeichern
 
    Const FormularFile As String = "C:\Daten\formulardaten.xml"
 
    'Namen der Tabellen 
    Const Formulartexte As String = "FormularTexte"
    Const Säulenraster As String = "Säulenraster"
    Const Verfahren As String = "Verfahren"
    Const Weichschichtdaten As String = "Weichschichtdaten"
 
    'Zugriffsvariable für Dataset
    Dim Formulardaten As DataSet
 
    'Zugriffsvariable für Controls 
    Dim tbos As New List(Of TextBox)
    Dim WithEvents cboVerfahren, cboSäulenraster As ComboBox
    Dim WithEvents dgv As DataGridView
 
    Dim WithEvents btnLaden, btnSpeichern As Button
 
    'Bindingsourcen
    Dim bsTexte, bsGrid As New BindingSource
 
 
    Private Sub frmFormularDatenSpeichern_Load(sender As System.Object, _
                            e As System.EventArgs) Handles MyBase.Load
 
        If IO.File.Exists(FormularFile) Then
            'Dataset: gespeicherte Daten aus Datei laden
            Formulardaten = New DataSet
            Formulardaten.ReadXml(FormularFile)
        Else
            'Dataset neu erstellen
            Formulardaten = CreateDataset()
        End If
 
        CreateControls()
 
        CreateBindings()
 
        Me.Height = btnLaden.Top + btnLaden.Height + 40
        Me.Width = 310
    End Sub
 
 
    Private Sub CreateControls()
 
        With Formulardaten.Tables(Formulartexte)
            'Labels und Textboxen erstellen 
            For i As Integer = 0 To .Columns.Count - 3
                Dim lbl As New Label With {.Parent = Me, .Top = 30 * i}
                lbl.Text = .Columns(i).ColumnName
                Dim tbo As New TextBox With _
                    {.Parent = Me, .Tag = i.ToString, _
                     .Left = 200, .Width = 100, .Top = 30 * i}
 
                AddHandler tbo.KeyDown, AddressOf TextBox_KeyDown
                tbos.Add(tbo)
            Next i
        End With
 
        cboVerfahren = New ComboBox With _
                           {.Parent = Me, .Top = 30 * tbos.Count}
 
        cboSäulenraster = New ComboBox With _
                              {.Parent = Me, .Top = 30 * (tbos.Count + 1)}
 
        dgv = New DataGridView With _
                  {.Parent = Me, .Top = 30 * (tbos.Count + 2), _
                   .Width = 300, .Height = 150}
        dgv.DataSource = bsGrid
 
        btnLaden = New Button With _
            {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, .Text = "Laden"}
 
        btnSpeichern = New Button With _
            {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, _
             .Text = "Speichern", .Left = 200}
 
    End Sub

 
    Private Function CreateDataset() As DataSet
 
        Dim FormData As New DataSet
 
        With FormData
            .DataSetName = "FormularDaten"
            .Tables.Add(Formulartexte)
            With .Tables(0)
                With .Columns
                    .Add("Flächenverhältnis", GetType(Double))
                    .Add("Säulenradius", GetType(Double))
                    .Add("Aktivierungsaufweitung", GetType(Double))
                    .Add("Dehnsteifigkeit", GetType(Double))
                    .Add("Belastung", GetType(Double))
                    .Add("Luftdruck", GetType(Double))
                    .Add("Ohde", GetType(Double))
                    .Add("Poisson", GetType(Double))
                    .Add("Säulenabstand", GetType(Double))
                    .Add("Scherfestigkeit", GetType(Double))
                    .Add("Wichte", GetType(Double))
                    .Add("Weichschicht", GetType(Double))
                    .Add(Säulenraster, GetType(Integer))
                    .Add(Verfahren, GetType(Integer))
                End With
                .Rows.Add(.NewRow) 'eine Zeile für Inhalt der Textboxen
                .Rows(0)(Säulenraster) = 0 'Index-Voreinstellung der Combos
                .Rows(0)(Verfahren) = 0
            End With
 
            'Tabellen für die Items in den Comboboxen
            .Tables.Add(Säulenraster)
            With .Tables(Säulenraster)
                .Columns.Add(Säulenraster)
                .Rows.Add("Raster1")
                .Rows.Add("Raster2")
            End With
 
            .Tables.Add(Verfahren)
            With .Tables(Verfahren)
                .Columns.Add(Verfahren)
                .Rows.Add("Verfahren1")
                .Rows.Add("Verfahren2")
                .Rows.Add("Verfahren3")
            End With
 
            'Spalten im Grid
            .Tables.Add(Weichschichtdaten)
            With .Tables(Weichschichtdaten).Columns
                .Add("Schichtdicke", GetType(Double))
                .Add("Steifemodul", GetType(Double))
                .Add("Kohäsion", GetType(Double))
                .Add("Scherfestigkeit", GetType(Double))
                .Add("Wichte", GetType(Double))
            End With
        End With
 
        Return FormData
    End Function
End Class

Private Sub frmFormularDatenSpeichern_Load(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles MyBase.Load
 
        If IO.File.Exists(FormularFile) Then
            'Dataset: gespeicherte Daten aus Datei laden
            Formulardaten = New DataSet
            Formulardaten.ReadXml(FormularFile)
        Else
            'Dataset neu erstellen
            Formulardaten = CreateDataset()
        End If
 
        CreateControls()
 
        CreateBindings()
 
        Me.Height = btnLaden.Top + btnLaden.Height + 40
        Me.Width = 310
    End Sub
 
 
    Private Sub CreateControls()
 
        With Formulardaten.Tables(Formulartexte)
            'Labels und Textboxen erstellen 
            For i As Integer = 0 To .Columns.Count - 3
                Dim lbl As New Label With {.Parent = Me, .Top = 30 * i}
                lbl.Text = .Columns(i).ColumnName
                Dim tbo As New TextBox With _
                    {.Parent = Me, .Tag = i.ToString, _
                     .Left = 200, .Width = 100, .Top = 30 * i}
 
                AddHandler tbo.KeyDown, AddressOf TextBox_KeyDown
                tbos.Add(tbo)
            Next i
        End With
 
        cboVerfahren = New ComboBox With _
                           {.Parent = Me, .Top = 30 * tbos.Count}
 
        cboSäulenraster = New ComboBox With _
                              {.Parent = Me, .Top = 30 * (tbos.Count + 1)}
 
        dgv = New DataGridView With _
                  {.Parent = Me, .Top = 30 * (tbos.Count + 2), _
                   .Width = 300, .Height = 150}
        dgv.DataSource = bsGrid
 
        btnLaden = New Button With _
            {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, .Text = "Laden"}
 
        btnSpeichern = New Button With _
            {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, _
             .Text = "Speichern", .Left = 200}
 
    End Sub

 Private Sub frmFormularDatenSpeichern_Load(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) Handles MyBase.Load
 
            If IO.File.Exists(FormularFile) Then
                'Dataset: gespeicherte Daten aus Datei laden
                Formulardaten = New DataSet
                Formulardaten.ReadXml(FormularFile)
            Else
                'Dataset neu erstellen
                Formulardaten = CreateDataset()
            End If
 
            CreateControls()
 
            CreateBindings()
 
            Me.Height = btnLaden.Top + btnLaden.Height + 40
            Me.Width = 310
        End Sub

        Private Sub CreateControls()
 
            With Formulardaten.Tables(Formulartexte)
                'Labels und Textboxen erstellen 
                For i As Integer = 0 To .Columns.Count - 3
                    Dim lbl As New Label With {.Parent = Me, .Top = 30 * i}
                    lbl.Text = .Columns(i).ColumnName
                    Dim tbo As New TextBox With _
                        {.Parent = Me, .Tag = i.ToString, _
                         .Left = 200, .Width = 100, .Top = 30 * i}
 
                    AddHandler tbo.KeyDown, AddressOf TextBox_KeyDown
                    tbos.Add(tbo)
                Next i
            End With
 
            cboVerfahren = New ComboBox With _
                               {.Parent = Me, .Top = 30 * tbos.Count}
 
            cboSäulenraster = New ComboBox With _
                                  {.Parent = Me, .Top = 30 * (tbos.Count + 1)}
 
            dgv = New DataGridView With _
                      {.Parent = Me, .Top = 30 * (tbos.Count + 2), _
                       .Width = 300, .Height = 150}
            dgv.DataSource = bsGrid
 
            btnLaden = New Button With _
                {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, .Text = _
                "Laden"}
 
            btnSpeichern = New Button With _
                {.Parent = Me, .Top = dgv.Top + dgv.Height + 10, _
                 .Text = "Speichern", .Left = 200}
 
        End Sub